AD-A092  o33 


.TONIC  ENERGY  RESEARCH  ESTABLISHMENT  HARWELL  (ENGLAND)  F/6  12/1 

uARMELL  SUBROUTINE  LIBRARY.  A  CATALOGUE  OF  SUBROUTINES  (1973). (U) 

,|UL  73  M  J  HOPPER 

UNCLASSIFIED  aERE-R-7477  NL 


AD  A092033 


UNCLASSIFIED 


H.S.L.(77)N.2 


"V 


HARWELL  SUBROUTINE  LIBRARY 
ORDER  FORM 


i 


EXTERNAL  USE  OF  THE 
HARWELL  SUBROUTINE  LIBRARY 

We  wish  the  subroutine  library  to  be  of  use  to  many  people  and  we  are  willing  to  provide  copies  in  source  code 
of  individual  routines  or  of  the  whole  library  to  external  users  on  request.  Charges  are  made  (see  below)  to  external 
users  to  cover  the  cost  of  handling,  postage  and  documentation  involved  in  fulfilling  their  requests  for  copies. 

The  charges  cover  only  the  copying  and  despatching  of  library  routines.  Therefore  we  do  not  undertake  to 
provide  any  assistance  that  may  be  needed  to  use  a  subroutine  successfully,  and  we  do  not  guarantee  the  efficacy 
of  any  subroutine  or  documentation.  However  we  hope  that  deficiences  in  subroutines  and  the  documentation  will 
be  brought  to  our  attention,  in  order  that  we  can  improve  the  Harwell  library. 

Except  for  a  small  number  of  subroutines  obtained  from  elsewhere,  the  subroutines  in  the  Harwell  Subroutine 
Library  are  the  property  of  the  United  Kingdom  Atomic  Energy  Authority  and  a  potential  user  must  accept  and 
abide  by  the  conditions  listed  below.  All  communication  with  the  library  by  external  users  should  be  made 
through  Mr.S.Marlow,  Building  8.9,  AERE  Harwell,  Didcot,  Oxon,  0X11  ORA,  (Tel.  Abingdon  24141  ext. 
2930),  who  is  the  liaison  officer  for  the  library's  external  affairs. 

The  conditions  attached  to  external  use  are  as  follows: 

(i)  the  subroutines  may  only  be  used  for  research  purposes  by  the  person  or  organisation  to  whom  they  are 
supplied.  They  may  not  be  copied  for  use  by  other  persons  or  organisations,  except  with  the  written 
permission  of  the  liaison  officer. 

(ii)  due  acknowledgement  is  made  of  the  use  of  subroutines  in  any  research  publications  resulting  from  their  use. 

(iii)  the  subroutines  may  be  modified  for  use  in  research  applications  by  external  users.  The  nature  of  such 
modifications  should  be  indicated  in  writing  for  information  to  the  liaison  officer.  At  no  time  however,  shall 
the  subroutines  or  modifications  thereof  become  the  property  of  the  external  user. 

(iv)  the  use  of  the  subroutines  in  commercial  applications  must  be  agreed  in  writing  with  AERE  Harwell  and  on 
terms  and  conditions  to  be  negotiated.  In  the  first  instance,  anyone  considering  such  commercial 
applications  should  write  to  the  liaison  officer. 

The  charges  for  library  material  are  listed  below.  Overseas  customers  are  charged  on  a  different  scale  than  that 
used  for  U.K.  customers  to  cover  the  extra  costs  in  meeting  their  requirements  and  all  items  are  despatched  by  air 
mail.  Charges  to  customers  in  the  United  Kingdom  are  subject  to  VAT.  All  prices  given  are  valid  to  the  1st 
August  1977,  and  subject  to  review  thereafter. 

(1)  Listings  of  subroutines 

U.K.(excluding  VAT)  £5  each 

Overseas  £20  each 

(2)  Card  decks  of  subroutines 

U.K.(excluding  VAT)  £5  per  400  cards  (minimum  order  £10) 

Overseas  £15  per  400  cards  ( minimum  order  £30) 

(3)  Subroutines  on  magnetic  tape  (including  the  cost  of  the  tape  which  we  supply) 

U.K.(excluding  VAT)  £20  for  the  first  two  subroutines  plus  £2  for  each  subroutine  in  excess  of  two. 

Overseas  £40  for  the  first  two  subroutines  plus  £2  for  each  subroutine  in  excess  of  two. 

(4)  Complete  library  on  tape  (including  the  cost  of  the  tape  which  we  supply  and  one  set  of  specification  sheets) 

U.K.(excluding  VAT)  £75 

Overseas  £150 

(5)  Additional  complete  sets  of  specification  sheets 

U.K. (excluding  VAT)  £17  each  set 

Overseas  £30  each  set 

N.B.  We  require  payment  with  order  for  orders  up  to  £50.  Cheques  should  be  made  payable  to  AERE,  Harwell. 
Please  complete  the  form  opposite  by  filling  in  the  sections  appropriate  to  the  library  material  you  require.  Enter 
into  the  column  on  the  right  the  cost  of  the  items  and  fill  in  the  total  at  the  bottom  of  the  form.  To  avoid  any 
confusion  we  advise  you  to  cross  out  the  whole  of  each  section  that  is  not  relevant  to  your  order. 
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To:  Mr.  S.  Marlow,  Building  8.9,  A.E.R.E.,  Harwell,  Didcot,  Oxon,  0X1 1  ORA,  England. 
Please  send  me  a  copy  of  the  following  material  from  the  Harwell  Subroutine  Library. 


Name,  title  and  mailing  address  (BLOCK  CAPITALS  please)  . 


1.  Listings  Please  send  listings  of  the  following  subroutines 


2.  Card  decks  Please  send  card  decks  of  the  following  subroutines 


Normally  these  are  punched  in  EBCDIC  card  code,  see  table  of  codes  overleaf.  However  we  will  use  the 
BCD  card  code  if  you  mark  this  box .  Q 


3.  Subroutines  on  magnetic  tape  Please  send  me  copies  of  the  following  subroutines  on  magnetic  tape 


4.  Complete  library  If  you  wish  to  receive  a  copy  of  the  complete  library  on  magnetic  tape  and  a 
complete  set  of  subroutine  specifications,  mark  this  box  .  Q  ; 


3,  Additional  complete  sets  of  subroutine  specifications  If  you  wish  to  receive  additional  copies  of  sets  ! 
of  subroutine  specification  sheets  for  the  complete  library  enter  the  number  required  in  this  box .  Q  I 


6.  Magnetic  tape  parameters  We  prefer  to  write  magnetic  tapes  in  EBCDIC  8-bit  code  on  9-track  tape,  1 
see  table  of  codes  overleaf,  at  a  density  of  800  bits  per  inch.  However  if  you  wish  to  receive  EBCDIC 

6-bit  code  on  7-track  tape  at  a  density  of  556  bits  per  inch  mark  this  box .  Q  i 

The  material  is  blocked  in  fixed  length  records,  each  block  containing  40  card  images.  If  you  require  a  j 

different  number  of  card  images  per  block,  write  the  number  here . 

N.B.  To  get  the  complete  library  on  to  one  tape  the  blocking  must  be  at  least  4.  If  the  options  offered  are 
not  suitable  then  we  will  try  and  meet  your  requirements.  You  will  receive  full  details  of  the  labelling, 
blocking  and  character  codes  of  any  magnetic  tapes  that  we  send  you. 


7.  Library  publications  If  you  wish  to  receive  free  of  charge  library  bulletins,  giving  information  about 

new  subroutines  and  modifications  to  the  library,  then  mark  this  box .  Q] 

If  you  wish  to  receive  free  of  charge  new  issues  of  the  Subroutine  Library's  catalogue  and  supplements 
mark  this  box  .  [  J 


8.  The  computer  It  would  help  us  if  you  write  down  the  name  and  mode!  number  of  the  computer  on 
which  you  are  going  to  use  our  library  . 


VAT  (UK  only) . 


TOTAL  COST 


A  cheque  for  £ .  made  payable  to  AERE,  Harwell  is  enclosed  for  my  order  (orders  up  to  £50)  /  I  agree  to  pay 

the  charges  indicated  for  my  order  (orders  over  £50).  I  Please  delete  whichever  does  not  apply}. 

I  agree  to  abide  by  the  conditions  given  opposite. 


Date .  Signature 

Name  (BLOCK  CAPITALS  please) 
for  and  on  behalf  of  (BLOCK  CAPITALS  please) 
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THE  TABLE  OF  CHARACTER  CODES 


The  table  below  shows  the  character  codes  that  we  use  when  >ve  supply  library  material  on  magnetic  tape  and 
punched  cards.  The  codes  that  are  listed  are  for  the  case  when  ce  user  has  requested  EBCDIC  and  the  five 
characters  which  are  changed  when  the  BCD  option  is  requested  are  also  shown  (see  second  footnote).  The  table 
contains  only  the  64  character  set  related  to  seven  track  tapes  and  tnk  set  will  include  all  the  characters  in  use  in 
the  computer  languages  that  are  used  in  the  library.  The  two  magnetic,  tape  codes  are  given  in  octal  (3  bits  per 
digit)  and  hexadecimal  (4  bits  per  digit)  and  the  parity  bit  is  not  included. 


7-track 

9-Cr«ck 

original 

card 

7-track 

9-track 

original 

card 

octal 

hex 

symbol 

code 

octal 

hex 

symbol 

code 

00 

40 

space 

no  punches 

40 

60 

- 

11 

01 

FI 

1 

1 

41 

D1 

J 

11-1 

02 

F2 

2 

2 

42 

D2 

K 

11-2 

03 

F3 

3 

3 

43 

D3 

L 

11-3 

04 

F4 

4 

4 

44 

D4 

M 

11-4 

05 

F5 

5 

5 

45 

D5 

N 

11-5 

06 

F6 

6 

6 

46 

D6 

0 

11-6 

07 

F7 

7 

7 

47 

D7 

P 

11-7 

10 

F8 

8 

8 

50 

D8 

Q 

11-8 

11 

F9 

9 

9 

51 

D9 

R 

11-9 

12 

F0 

0 

0 

52 

D0 

no  symbol 

11-0 

13 

7B 

#  1=1 

3-8 

53 

5B 

£  t 

11-3-8 

14 

7C 

§  I’l 

4-8 

54 

5C 

* 

11-4-8 

15 

7D 

'  t 

5-8 

55 

5D 

)  t 

11-5-8 

16 

7E 

=  i 

6-8 

56 

5E 

' 

11-6-8 

17 

7F 

11 

7-8 

57 

5F 

*“7 

11-7-8 

20 

7A 

2-8 

60 

50 

&  i  +  1 

12 

21 

61 

/ 

0-1 

61 

Cl 

A 

12-1 

22 

E2 

s 

0-2 

62 

C2 

B 

12-2 

23 

E3 

T 

0-3 

63 

C3 

C 

12-3 

24 

E4 

U 

0-4 

64 

C4 

D 

12-4 

25 

E5 

V 

0-5 

65 

C5 

E 

12-5 

26 

E6 

w 

0-6 

66 

C6 

F 

12-6 

27 

E7 

X 

0-7 

67 

C7 

G 

12-7 

30 

E8 

Y 

0-8 

70 

C8 

H 

12-8 

31 

E9 

Z 

0-9 

71 

C9 

I 

12-9 

32 

E0 

no  symbol 

0-2-8 

72 

C0 

no  symbol 

12-0 

33 

6B 

0-3-8 

73 

4B 

12-3-8 

34 

6C 

%  m 

0-4-8 

74 

4C 

<  m 

12-4-8 

35 

6D 

0-5-8 

•75 

4D 

(  t 

12-5-3 

36 

6E 

> 

0-6-8 

76 

4E 

+  t 

12-6-8 

37 

6F 

? 

0-7-8 

77 

4F 

l 

12-7-8 

t  The  Harwell  printers  print  the  currency  symbol  as  a  £  symbol. 

t  when  the  BCD  option  is  specified  these  five  characters  are  translated  to  the  positions  indicated  by  the 
characters  in  braces.  In  all  five  cases  the  translation  is  two  characters  into  one,  e.g.  both  #  and  =  get  translated  to 
hexadecimal  7B.  Note  that  th^JBCD  option  is  not  a  one  to  one  translation  and  in  particular  the  distinction  between 
the  +  character  and  the  &  character  is  lost.  The  &  character  is  a  valid  charcter  in  IBM  Fortran  and  in  the  rare 
cases  were  it  is  used  in  library  routines  the  BCD  translation  may  change  the  meaning  of  the  Fortran  code. 
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Introduction 


1 .  The  Harwell  Subroutine  Library 

The  Harwell  Subroutine  Library  is  maintained  by  the  Numerical  Analysis  Group  of 
Theoretical  Physics  Division,  A.E.R.E.  Harwell.  It  is  strictly  a  library  of  subprograms 
which  must  be  called  by  a  user  written  program.  Complete  programs  are  not  included  in 
the  library  although  some  of  the  library  ' routines'  are  in  fact  packages  of  more  than  one 
subprogram.  The  principle  language  is  FORTRAN  but  a  few  of  the  routines  are  written  in 
the  machine  code  for  the  current  Harwell  computer  -  an  IBM  model  370/165. 

The  library  is  composed  mainly  of  mathematical  and  numerical  analysis  routines.  These 
have  in  the  main  been  written  by  members  of  the  Numerical  Analysis  Group,  past  and  present, 
and  are  usually  of  a  high  standard.  A  few  of  the  routines  have  been  derived  from  sources 
outside  Harwell  and  acknowledgements  are  made  to  that  effect  in  the  catalogue  entries. 

The  principle  function  of  the  library  is  to  provide  Harwell  computer  users  with  good 
numerical  facilities.  We  do  however  get  many  requests  for  the  library  from  outside  Harwell 
and  we  provide  copies  of  the  library,  and  listings  and  card  decks  of  individual  routines 
for  a  small  handling  charge,  see  section  A  subsection  6  in  part  II. 

The  library  started  life  in  1963  and  was  first  used  on  an  IBM  7030  (STRETCH)  computer. 
In  1967  the  whole  library  was  converted  to  be  used  on  an  IEM  360  and  at  that  time  the 
machine  coded  routines  were  rewritten  and  the  concept  of  having  both  single  and  double 
precision  versions  of  routines  was  introduced. 

2*  The  catalogue 

This  catalogue  of  the  Harwell  subroutine  library  stands  as  a  precise  definition  of 
the  library.  It  serves  as  a  reference  document  for  library  facilities  for  users  of  the 
Harwell  computer.  New  users  of  the  library  will  find  the  section  A  in  part  II  'how  to 
use  the  library'  useful  as  an  introduction  to  library  facilities.  Also  useful,  the 
general  index  at  the  back  of  this  report  which  has  been  extended  in  scope  to  provide  a 
general  cross  reference  index  to  all  library  facilities. 

This  is  a  new  issue  of  the  catalogue  and  it  supersedes  the  1971  issue  R.6912  and  its 
two  supplements.  All  the  new  library  routines  introduced  since  1971  have  been  included 
and  a  few  that  have  been  discontinued  have  been  removed.  A  new  external  users  section 
giving  details  of  the  charges  for  library  material  has  been  included,  this  was  previously 
published  in  the  first  supplement  to  R.69I2.  There  is  a  new  subsection  of  section  A  on 
library  information  sources  and  a  complete  list  of  all  A.E.R.E.  reports  which  cover 
library  routines  and  include  listings.  The  three  sections  on  data  fitting,  optimization 
and  linear  algebra  have  been  brought  up  to  date  and  a  new  section  on  quadrature  has  been 
added.  In  the  general  list  of  routines  we  now  give  for  each  routine  a  list  of  any  other 
library  or  user  routines  which  are  called  by  that  routine.  There  is  no  section  on  the 
Harwell  graphical  package  this  time  as  this  is  now  the  responsibility  of  the  Central 
Computer  Group  at  Harwell  and  is  covered  in,  R.  Jones  and  W.  Prior,  'GHOST  users  manual' , 

TP  484. 

The  catalogue  consists  of  two  parts.  Part  I  contains  the  complete  list  of  routines 
that  make  up  the  library  giving  details  of  purpose,  method  and  attributes.  The  details 


given  are  brief  and  only  intended  to  be  sufficient  for  a  potential  user  to  decide  which  of 
the  routines,  if  any,  are  suitable  for  his  particular  problem.  The  routines  are  listed  in 
alphabetical  order  and  the  classification  used  for  routine  names  is  such  that  the  list 
falls  naturally  into  sections  associated  with  different  classes  of  problem.  There  are 
some  exceptions  and  general  topics,  such  as  data  fitting,  are  covered  by  routines  spread 
throughout  the  list.  The  general  index  provided  at  the  end  of  the  report  can  be  used  to 
help  the  user  locate  routines  associated  with  his  particular  problem.  At  the  end  of 
part  I  you  will  find  the  list  of  A.E.R.E.  reports  which  cover  library  routines. 

Part  II  consists  of  sections  contributed  by  members  of  the  Numerical  Analysis  Group 
on  topics  of  general  interest.  They  are  intended  to  cover  the  situation  which  often 
arises  when  there  appears  to  be  more  than  one  routine  in  the  library  which  could  be  used 
to  solve  a  particular  problem.  The  sections  give  guidance  as  to  best  methods  and  point 
to  the  routines  which  should  be  used.  The  sections  also  serve  an  educational  purpose  in 
showing  ways  of  setting  up  problems  so  that  best  use  is  trade  of  the  facilities  available. 

It  is  hoped  that  these  contributions  will  grow  in  number  and  content  with  each  new  re¬ 
issue  of  the  catalogue. 

The  first  section  in  part  II  is  on  how  to  use  the  library.  Because  this  report  is 
primarily  a  reference  document  it  has  been  placed  after  the  list  of  subroutines  and  not 
at  the  beginning  where  it  logically  should  be.  Anyone  unfamiliar  with  the  library  should 
make  a  point  of  reading  that  section,  particularly  the  sections  on  naming  conventions  and 
write  ups. 

Some  of  the  conventions  used  in  the  list  of  subroutines  in  part  I  will  need  some 
explanation  and  this  is  covered  by  the  following  subsections. 

2. 1  Language 

The  FORTRAN  used  up  to  Aug  1967  on  the  IBM  7030  was  a  FORTRAN  closely  related 
to  FORTRAN  II  or  basic  FORTRAN.  The  effect  on  the  library  is  that  pre-1967  routines 
will  most  likely  contain  only  FORTRAN  II  like  features.  After  Aug  1967  FORTRAN  IV 
features  started  to  come  in  with  some  of  the  IBM  extensions  to  FORTRAN  IV.  The 
routines  have  not  been  classified  according  to  FORTRAN  dialect  or  according  to  devia¬ 
tions  from  standard  because  in  general  this  information  is  not  known.  We  make  no 
claims  in  respect  to  the  portability  of  the  library.  We  consider  that  a  simpler  user 
interface  combined  with  fairly  efficient  code  is  important  and  this  aim  often  con¬ 
flicts  with  the  rather  crude  FORTRAN  standards  currently  in  operation. 

The  IEM  assembler  language  for  the  360  or  370  machines  has  been  denoted  by 
360/BAL  where  BAL  stands  for  basic  assembler  language.  It  is  a  term  we  use  loosely 
to  cover  assembly  language  programming  including  floating  point  and  macro  facilities. 
No  routine  in  the  library  uses  special  370  features  but  some  of  the  system  routines 
may  be  OS  release  dependent. 

2.2  Versions 

This  lists  the  names  of  other  versions  of  the  subroutine  and  is  principally  used 
to  show  that  a  double  precision  version  is  available  and  give  its  name.  Double 
precision  names  are  distinguished  by  adding  a  D  to  the  single  precision  name,  see  sub¬ 
section  1  of  section  A  in  part.  II. 
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2.3  Date 


This  gives  the  approximate  date  that  the  routine  was  introduced  into  the  library. 
If  a  routine  has  been  modified  since  its  introduction  and  the  modification  was  exten¬ 
sive  enough  to  consider  it  a  new  routine  the  date  given  is  the  date  when  the  modifica¬ 
tion  was  made. 

2.4  Size 

The  size  of  each  routine  is  given  in  two  parts;  the  first  is  the  core  required 
to  load  the  routine  given  to  the  nearest  100  bytes  (1  byte  =  8  bits),  the  second  part 
gives  the  number  of  cards  in  the  source  deck.  Both  sizes  are  approximate  and  are 
associated  with  that  routine  whose  name  appears  at  the  head  of  the  catalogue  entry. 

This  is  usually  the  single  precision  version;  double  precision  versions  are  likely 
to  take  up  more  space  than  the  single  precision  version.  Users  should  be  careful 
using  these  sizes  to  estimate  total  core  requirements  and  should  consult  the  write 
ups  for  the  routines  to  find  out  how  much  extra  work  space  must  be  provided.  Card 
deck  sizes  can  also  be  misleading  as  some  routines  have  a  generous  number  of  comment 
cards  in  them  and  so  appear  larger  routines  than  they  really  are. 

2.5  Calls 

We  give  a  list  of  other  library  routines  or  user  provided  routines  which  the 
routine  calls.  We  give  only  the  list  for  the  routine  named  at  the  head  of  the 
catalogue  entry,  the  lists  for  other  versions  can  be  deduced  from  this. 

2.6  Origin 

Here  the  author's  name  and  the  place  of  origin  of  the  routine  is  given.  Some 
of  the  routines  come  from  external  sources  and  we  give  the  author' s  name  in  recogni¬ 
tion  for  providing  us  with  library  material.  However  most  of  the  external  routines 
have  undergone  some  modification  for  Harwell  use  and  therefore  the  responsibility  for 
maintaining  their  good  working  must  rest  with  Harwell  and  not  the  original  authors. 

Many  of  the  authors  listed  as  Harwell  are  no  longer  at  this  establishment  and  this 
has  been  indicated  by  an  *  after  their  name. 

Queries  concerning  library  routines  should  not  be  directed  to  the  authors  person¬ 
ally  but  through  the  library's  queries  service,  see  subsection  4  in  section  A  in 
part  II. 

3.  Keeping  the  catalogue  up  to  date 

From  the  experience  gained  with  the  first  catalogue,  R.6912,  we  have  changed  our  ideas 
on  this  subject.  The  period  between  complete  new  issues  of  the  catalogue  will  have  to  be 
more  than  12  months  and  it  is  likely  to  be  at  least  2  years.  In  this  period  we  shall  keep 
the  catalogue  up  to  date  by  bringing  out  supplements  which  will  list  the  new  routines  intro¬ 
duced  into  the  library  since  the  last  issue  of  a  catalogue  or  supplement.  External  users  on 
our  mailing  list  will  get  these  supplements  automatically  otherwise  they  will  be  available 
only  on  demand.  We  recommend  that  any  time  you  request  a  catalogue  you  should  ask  also  for 
any  supplements  to  the  catalogue. 


3 


wr 


: 

Comments,  critical  or  otherwise,  concerning  the  catalogue  are  always  welcome,  particu¬ 
larly  on  the  method  of  keeping  it  up  to  date. 


Harwell  Subroutine  Librarian 
M.J.  Hopper 
July  1973 


Differential  Equations 


To  integrate  a  set  of  first  order  ordinary  differential  equations 

yi'  =  fi(y1,y2’***,yn,x)  L  =  ,»2»**‘»n 

given  initial  conditions  yi(x°)  =  y^.  Each  call  to  the  subroutine  advances  the 
integration  one  step,  the  step  length  being  set  by  the  user.  A  subroutine  must 
be  provided  to  compute  values  of  the  functions  f^. 

The  subroutine  uses  the  4th  order  Runge-Kutta  method  proposed  by  Merson  which 
attempts  to  estimate  the  truncation  error  at  each  step. 

Remark:  This  subroutine  has  been  superseded  by  DC01AD. 

Versions:  DA01A;  DAOIAD. 

Calls :  DYBDX  (user  routine). 

Language :  FORTRAN,  Date :  March  1963,  Size :  1.2K;  44  cards. 

Origin:  D.  McVicar,  Harwell. 


To  integrate  a  set  of  first  order  ordinary  differential  equations 


yi  =  f^y,  »y2t...,yn.x)  i  =  i,2,...,n 

Given  initial  conditions  yi(x°)  =  y.0.  The  steplength  is  controlled  automatically 
by  the  routine  so  that  at  each  step  the  truncation  error  should  satisfy  an  accuracy 
requirement  specified  by  the  user.  The  Runge-Kutta  routine,  DAOiA,  is  called  and 
the  Merson  truncation  error  estimate  is  used  to  determine  the  steplengths.  The 
accuracy  is  not  guaranteed. 

The  user  must  provide  a  subroutine  to  calculate  the  functions  f^  and  optionally 
a  subroutine  to  print  results  at  specified  print  points. 

Remark :  DCOtAD  and  DC02AD  provide  more  powerful  facilities. 

Versions :  DA02A;  DA02AD. 

Calls:  DAOIA  and  MX02A. 

Language :  FORTRAN,  Date :  March  1972,  Size :  2. IK;  154  cards. 

Origin :  A.R.  Curtis  and  A.  B.  Smith*,  Harwell. 


PCOIAD 


A  package  of  routines  to  integrate  a  system  of  first  order  ordinary  differential 


luations 


yi'  =  fi(y1,y2’,**,yn’x)  1  = 

given  initial  values  yi(x°)  =  y^°  using  a  predictor-corrector  method  due  to 
C.W.  Gear.  Given  a  requested  accuracy  this  method  automatically  chooses  the  step 
size  and  the  order  of  the  integration  formula.  It  possesses  excellent  stability 
propoerties  which  enable  it  to  take  long  steps  even  in  stiff  systems  (i.e.  those 
involving  very  short  time  constants). 


The  user  must  supply  a  subroutine  to  compute  the  functions  f ^ ,  and  optionally 
an  output  subroutine  to  be  called  at  specified  print  points.  Integration  details 
are  made  available  to  the  output  subroutine  through  named  COMMON  areas.  There  is 
an  interpolation  subroutine  which  may  be  called  from  the  output  routine  to  get 
values  of  y^(x)  for  any  value  of  x  in  the  current  step. 


Remark : 
Versions : 
Calls: 
Language ; 
Origin: 


DC02AD  provides  a  more  simplified  calling  sequence  to  DCOIAD. 
DCOIAD;  there  is  no  single  precision  version. 

PBOIAD,  MCOIAD  and  MBOIBD. 

FORTRAN,  Date :  May  1970,  Size:  14.9K;  984  cards. 

A.R.  Curtis,  Harwell. 


DC02AD 


To  integrate  a  system  of  first  order  ordinary  differential  equations 


yi'  =  fi(y),y2»*«..yn»x)  i=  1,2 . .  n  «  10 

given  initial  values  yi(x°)  =  y^0.  This  subroutine  calls  DCOIAD  forfeiting  some 
of  its  facilities  to  provide  a  more  simplified  calling  sequence. 

The  user  provides  a  routine  to  compute  the  functions  f^ ,  but  printed  output 
is  produced  by  the  package's  standard  output  routine.  The  restriction  on  n  can  be 
removed  by  simple  change  to  the  array  storage  allocation  in  a  COHMON  block. 

Versions:  DC02AD;  there  is  no  single  precision  version. 

Calls:  DCOIAD. 

Language:  FORTRAN,  Date :  May  1970,  Size :  3.9K;  32  cards. 

Origin :  A.R.  Curtis,  Harwell. 

DD01A 

To  solve  the  two  point  boundary  value  problem  for  the  second  order  linear 
differential  equation 


y"  +  f(x)y'  +  g(x)y  =  k(x)  xf  <  x  ^ 


given  boundary  conditions  of  the  form  ay'  +  by  =  c  at  the  two  points  x(  and  xn* 

A  finite  difference  approximation  is  used,  see  L.  Fox,  Proc.  Roy.  Soc.  A. 190, 
1947.  Initially  3rd  and  higher  differences  are  ignored;  then  successive  approxi¬ 
mations  are  obtained  by  applying  correction  terms  based  upon  3rd  and  4th  differences. 

The  values  of  f(x),  g(x)  and  k(x)  at  the  points  x^^,...^  are  passed  to  the 
subroutine  in  three  arrays. 


Versions: 
Calls: 
Language : 
Origin: 


DD01A;  DD01AD. 

MA07A  and  TA03A. 

FORTRAN,  Date:  May  1965,  Size:  2.6K; 
P.  Hallowell,  Atlas  Lab.,  Chilton,  Berks. 


172  cards. 
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D002A 


To  solve  the  two  point  boundary  value  problem  for  the  second  order  non-linear 
differential  equation 

y"  +  f(x,y,y')y'  +  g(x,y,y')y  =  k(x,y,y')  xt  <  x  <  xR 

given  boundary  conditions  of  the  form  ay'  +  by  =  c  at  the  two  points  xf  and  xR. 

Starting  from  an  initial  approximation  to  the  solution  the  equation  is  linear¬ 
ized,  solved  by  calling  DDOIA  and  then  re-linearized  until  the  required  accuracy  is 
reached.  At  this  stage  the  effect  of  3rd  and  4th  differences  has  been  ignored  and 
the  solution  is  then  corrected  to  take  these  into  account. 

The  user  must  provide  a  subroutine  to  compute  values  of  f(x,y,y'),  g(x,y,y') 
and  k(x,y,y' ). 

Versions:  DD02A,  DD02AD. 

Calls :  DDOIA,  TA03A,  TDOIA  and  FUNCTS  (a  user  routine). 

language :  FORTRAN,  Date :  May  1965,  Size :  2.3K;  171  cards. 

Origin:  P.  Hallowell,  Atlas  Lab.,  Chilton,  Berks. 

DINT 

Returns  the  double  precision  floating  point  value  of  the  integer  part  of  a 
real  double  precision  floating  point  number.  It  supplements  the  IBM  FORTRAN  support 
functions  I  NT,  IDIOT  and  AIOT. 

Versions :  DIOT  double  precision. 

Language :  360/BAL,  Date:  Sept.  1967,  Size:  .IK;  15  cards. 

Origin :  R.C.F.  McLatchie,  Harwell. 

DP01A 

To  solve  the  two  point  boundary  value  problem  for  the  linear  parabolic  partial 
differential  equation 

o 

du  d  u  ,  .  du 

St  M  3  ~2  +  b  dS  +  cu  +  d 

OX 

where  a,b,c  and  d  are  functions  of  x  and  t,  x,  <  x  <  x  .  given  boundary  conditions 
du  du  *> 

of  the  form  P  =  q  +  ru  +  s  -gj  at  the  points  x,  and  xn>  Given  6t  and  the  solution 
u(x,t)  at  t,  the  subroutine  advances  the  integration  one  time  step  to  obtain 
u(x,t+6t). 

The  Crank-Nicolson  integration  formula  is  used  to  transform  to  a  2nd  order 
linear  ordinary  differential  equation  which  is  solved  by  calling  DDOIA. 

The  user  must  supply  a  subroutine  to  compute  values  of  the  functions  a,b,c 
and  d  given  current  values  of  x  and  t. 

Versions :  DPOIA;  DP01AD. 

Cails:  DDOIA,  TA03A,  TDOIA  and  FUNCTS  (a  user  routine). 

language :  FORTRAN,  Date:  Sept.  1965,  Size:  3.5K;  197  cards. 

Origin :  P.  Hallowell,  Atlas  Lab.,  Chilton,  Berks. 
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DP02A 


To  solve  the  two  point  boundary  value  problem  for  the  non-linear  parabolic 
partial  differential  equation 


3u 

3t 


32u  .  3u  . 

a  ~2  +  b  Si  +  CU  +  d 

3x 


X,  <  X  <  xn 


where  a,b,c  and  d  are  functions  of  x,t,u  and  given  boundary  conditions  of  the 
form  P-|^  =  q+  ru+sJ^at  the  points  x(  and  x^.  Given  6t  and  the  solution 
u(x,t)  at  t,  the  subroutine  advances  the  integration  one  time  step  to  obtain 
u(x,t+6t) . 


Using  the  solution  at  t  as  a  first  approximation  the  equation  is  linearized 
and  successively  re-linearized  until  the  required  accuracy  is  obtained.  DP01A  is 
used  to  solve  the  linearized  equation  which  in  turn  uses  DDOIA. 


The  user  must  provide  a  subroutine  to  compute  the  functions  a,b,c  and  d  given 
current  values  of  x,t,u  and  . 


Versions : 
Calls : 
Language : 
Origin: 


DP02A ;  DP02AD. 

DPOIA,  TA03A  and  TDOIA. 

FORTRAN,  Date :  June  1966,  Size :  2.4K; 

P.  Hallowell,  Atlas  Lab.,  Chilton,  Berks. 


203  cards. 


E. 

EA02A 


^Eigenvalue^and^Eigenvector^oi^latrices 


Given  a  real  syntnetric  matrix  A  and  an  estimate  of  one  of  its  eigenvalues, 
will  find  to  a  given  accuracy  the  eigenvalue  nearest  to  Xc  and  its  corresponding 
eigenvector.  The  eigenvector  is  normalized  to  have  unit  length. 


The  power  method  is  applied  to  the  matrix  (A-XeI) 


1  with  Aitken  extrapolation 
NPL. 


every  3rd  iteration,  see  'Modem  Computing  Methods' 

Remark:  for  matrices  of  small  order  the  QR  routines,  EA06C ,  etc.  which  find  all 

eigenvalues  will  be  more  efficient. 

Versions :  EA02A;  EA02AD. 

Calls:  MB01B. 

Language :  FORTRAN,  Date :  July  1963,  Size : 

Origin :  E.J.  York*,  Harwell. 


12.4K;  70  cards. 


EA03A 

Given  a  real  symmetric  matrix  A,  finds  all  its  eigenvalues  X^  and  eigenvectors 
xi(  i.e.  finds  the  non-trivial  solutions  of  Ax  =  >oc. 

Jacobi's  method  is  used,  where  the  successive  off-diagonal  elements  of  largest 
modulus  are  reduced  to  zero  by  orthogonal  transformations  until  all  off-diagonal 
elements  are  less  than  some  prescribed  value.  The  transformations  are  simultaneously 
applied  to  the  unit  matrix  to  generate  the  vectors. 
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Remark : 


Versions : 
Language : 
Origin: 


This  routine  is  only  to  be  preferred  over  the  QR  method  routines  when  the 
matrix  tends  to  be  diagonally  dominant. 

EA03A;  EA03AD. 

FORTRAN,  Date :  May  1963,  Size:  3.3K;  148  cards. 

J.  Soper,  Harwell. 


Given  a  real  sy 


etric  matrix  A,  finds  all  its  eigenvalues  X^  and  eigenvectors 


x^,  i.e.  finds  the  non-trivial  solutions  of  Ax  =  Xx.  The  eigenvectors  are  normalized 
to  have  unit  length. 

The  matrix  is  reduced  to  tri-diagonal  form  by  applying  Householder  transforma¬ 
tions.  The  eigenvalue  problem  for  the  reduced  problem  is  then  solved  by  calling 
EA08C  which  uses  the  QR  algorithm. 

Versions :  EAO60 ;  EA06CD. 


Calls: 


EA08C  and  MC04B. 


Language :  FORTRAN,  Date :  Feb.  (970,  Size:  1.3K;  26  cards. 

Origin :  J.K.  Reid,  Harwell. 

Given  a  real  symmetric  matrix  A,  finds  all  its  eigenvalues,  i.e.  finds  the 
solutions  Xi  of  det(A-XI)  =  0. 

The  matrix  is  reduced  to  tri-diagonal  form  by  applying  Householder  transforma¬ 
tions;  then  the  eigenvalues  of  the  reduced  iatrix  are  found  by  calling  EA09C  which 
uses  the  QR  algorithm. 

Versions :  EA07C ;  EA07CD. 

Calls:  EA09C  and  MC04B. 

Language :  FORTRAN,  Date :  Feb.  1970,  Size:  .6K;  12  cards. 

Origin :  J.K.  Reid,  Harwell. 


Finds  all  the  eigenvalues  and  eigenvectors  of  a  real  tri-diagonal  synmetric 
matrix;  the  eigenvectors  will  have  unit  length. 

First  EA09C,  which  uses  the  QR  algorithm,  is  used  to  find  the  eigenvalues, 
using  these  as  shifts  the  QR  algorithm  is  again  applied  but  now  using  the  plane 
rotations  to  generate  the  eigenvectors.  Finally  the  eigenvalues  are  refined  by 
taking  Rayleigh  quotients  of  the  vectors. 

Versions :  EA08C ;  EA08CD. 


Calls : 


EA09C. 


Language:  FORTRAN,  Date :  Feb.  1970,  Size:  1.8K;  76  cards. 

Origin;  J.K.  Reid,  Harwell. 
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EA09C 


Finds  all  the  eigenvalues  of  a  real  tri-diagonal  symmetric  matrix.  The  QR 
algorithm  with  shifts  is  used. 

Versions :  EA09C;  EA09CD. 

Language :  FORTRAN,  Date ;  Feb.  1970,  Size ;  1.3K;  52  cards. 

Origin:  J.K.  Reid,  Harwell. 

EA11A 

Calculates  all  the  eigenvalues  X^  and  eigenvectors  of  the  system  Ax^  =  X^Bx^ 
where  A  is  a  real  symmetric  matrix  and  B  is  a  real  symmetric  positive  definite 
matrix. 

T  —  |  T  -1  T 

The  matrix  B  is  factorized  into  LL  and  the  eigenvalue  problem  L  A(L  )  Lx  = 

T  ” 

L  x  is  solved  using  the  EA06  -  EA09  routines. 

Versions :  EA11A;  EA11AD. 

Calls  :  EA06C ,  MA22A,  MX02A  and  MC03AS. 

Language :  FORTRAN,  Date :  Feb.  1972,  Size:  2.2K;  80  cards. 

Origin :  S.  Marlow,  Harwell. 

EB01A 

Finds  all  the  eigenvalues  and  eigenvectors  of  a  general  real  matrix.  The  user 
has  options  for  requesting,  no  eigenvectors,  only  right  eigenvectors,  only  left 
eigenvectors,  or  both  right  and  left.  The  vectors  will  have  unit  length. 

The  matrix  is  reduced  by  Householder  transformations  to  upper  Hessenberg  form. 
The  eigenvalue  problem  for  the  reduced  matrix  is  then  solved  by  calling  EB04A.  The 
eigenvectors,  if  required  it  obtains  by  calling  EB05A. 

Remark:  Superseded  by  EB06A. 

Versions :  EB01A;  EB01AD. 

Calls:  EB04A,  EB05A  and  IVC08A. 

Language :  FORTRAN,  Date:  May  1967,  Size:  2.6K;  132  cards. 

Origin :  E.J.  York*  and  M.  Reynolds*,  Harwell. 

EB04A 

Finds  all  the  eigenvalues,  real  and  complex,  of  a  real  upper  Hessenberg  matrix, 
i.e.  a  matrix  A  =  such  that  a^  =  0  for  all  i  <  j+1. 

The  double  QR  transformation  is  used,  see  J.G.F.  Francis,  Computer  Journal, 

Vol.  4,  1961  (also  1962). 

The  user  may  limit  the  number  of  times  the  transformation  is  to  be  applied. 

Remark  :  Superseded  by  EB09A. 

Versions :  EB04A;  EB04AD. 

Calls:  MC03AS. 

Language :  FORTRAN,  Date:  Sept.  1965,  Size:  4.4K;  261  cards. 

Origin :  P.J.  Hallowell,  Atlas  Lab.,  Chilton,  Berks. 
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Given  a  real  upper  Hessenberg  matrix  A  and  one  of  its  eigenvalues  X,  finds  the 
corresponding  eigenvector  x.  This  may  optionally  be  a  right  or  left  vector  and  will 
have  unit  length. 

Inverse  iteration  is  used,  i.e.  an  iteration  based  on  (A-XI)x  .  =  x  • 

TY+ 1  Tl 

Remaric:  Superseded  by  EB08A. 

Versions :  EB05A ;  EB05AD . 

Calls:  MAI2A  and  ME04B. 

Language :  FORTRAN,  Date :  Nov.  1966,  Size:  4.2K;  284  cards. 

Origin:  M.  Reynolds*,  Harwell. 


Finds  all  the  eigenvalues  and  right  eigenvectors  of  a  real general  matrix,  i.e. 


finds  solutions  X  and  x  of  ta  =  where  the  matrix  A  is  real  and  has  no  special 
structure.  An  option  for  balancing  A  is  provided.  The  vectors  are  normalized  to 
have  unit  length. 

A  QR  method  is  used.  The  matrix  is  reduced  to  Hessenberg  form  by  orthogonal 
similarity  transformations  (MC14A)  and  the  QR  method  applied  to  obtain  the  eigen¬ 
values  (EB08A) ,  see  J.H.  Wilkinson  and  C.  Reinsch,  ’Handbook  for  Automatic  Computa 
tion.  Linear  Algebra’,  Springer-Verlag.  Balancing  is  performed  by  MC15A. 

Versions :  EB06A;  EB06AD. 

Calls:  EB08A,  MC14A,  MC15A  and  MC03AS. 

Language :  FORTRAN,  Date :  June  1973,  Size:  2.7K;  162  cards. 

Origin:  S,  Marlow,  Harwell. 


Finds  all  the  eigenvalues  of  a  real  general  matrix,  i.e.  finds  solutions  X  of 
Ax  =  ?ot  where  A  is  a  real  matrix  with  no  special  structure.  An  option  for  balanc¬ 
ing  A  is  provided. 

A  QR  method  is  used,  see  EB06A. 


Versions:  EB07A;  EB07AD. 

Calls:  EB09A,  M214A  and  MC15A. 

Language:  FORTRAN,  Date :  June  1973, 
Origin:  S.  Marlow,  Harwell. 


Size:  IK;  73  cards. 


Finds  all  the  eigenvalues  and  right  eigenvectors  of  a  real  upper  Hessenbe 


matrix,  i.e.  finds  solutions  X  and  x  of  Hx  =  "Sx  where  H  is  a  real  matrix  which  has 
all  zero  elements  H^  =  0  for  i  >  j+J.  The  eigenvectors  are  normalized  to  have 
unit  length  and  there  is  an  option  which  allcws  isolated  eigenvalues  to  be  specified 

A  QR  method  is  used,  see  J.H.  Wilkinson  and  C.  Reinsch,  'Handbook  for  Automatic 
Computation,  Linear  Algebra'  ,  Springer-Verlag. 

Versions:  EB06A;  EB08AD. 


Calls: 


MC03AS. 


Language:  FORTRAN,  Date:  June  1973,  Size:  9.4K;  429  cards. 

Origin :  HQR2  from  reference  given  above,  modified  for  Harwell  by  S.  Marlow. 
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EB09A 

Finds  all  the  eigenvalues  of  a  real  upper  Hessenberg  matrix,  i.e.  finds  solu¬ 
tions  1  of  Hx  =  ?ix  where  H  is  a  real  matrix  which  has  all  2ero  elements  =  0  for 
i  >  j+1. 

A  QR  method  is  used,  see  EB08A. 

Versions :  EB09A ;  EB09AD . 

Language:  FORTRAN,  Date :  June  1973,  Size:  3.6K;  196  cards* 

Origin:  HQR  from  reference  given  for  EB08A,  modified  for  Harwell  by  S.  Marlow. 

EC02A 

Finds  all  the  eigenvalues  of  a  tri-diagonal  Hermitian  matrix. 

A  bisection  method  based  upon  the  Sturm's  sequence  is  used.  The  eigenvalues 
are  returned  in  descending  order  of  magnit  de. 


Versions :  EC02A;  EC02AD. 

Language :  FORTRAN,  Date :  March  1965,  Size :  IK;  42  cards. 

Origin:  E.J.  York*,  Harwell. 

EC06C 

Given  a  complex  Hermitian  matrix  A  =  fin<ls  all  its  eigenvalues 

and  eigenvectors  x^  i.e.  finds  the  nontrivial  solutions  of  Ax  =  Ax.  The  eigen¬ 
vectors  are  normalized  to  have  unit  length. 

The  matrix  is  reduced  to  tri-diagonal  form  by  Householder  orthogonal  transforma¬ 
tions  and  the  reduced  eigenvalue/eigenvector  problem  solved  by  a  QR  method  (EC08C). 


Versions :  EC06C ;  EC06CD. 

Calls:  EC08C ,  ME08A  and  ME06AS. 

Language :  FORTRAN,  Date :  Sept.  1971,  Size :  1.4K;  31  cards. 

Origin :  S.  Marlow,  Harwell. 

BCQ7C 

Given  a  complex  Hermitian  matrix  A  =  Ja^} ,  =  a^,  finds  all  its  eigenvalues 

V  such  that  detlA-A^)  =  0. 

The  matrix  is  reduced  to  triangular  form  by  applying  Householder  orthogonal 
transformations  and  the  eigenvalues  of  the  reduced  matrix  are  found  by  EA09C. 


Versions  :  EC07C ;  EC07CD . 

Calls:  EC09C  and  ME08A. 

Language :  FORTRAN,  Date :  September  1971,  Size :  .5K;  13  cards. 

Origin:  S.  Marlow,  Harwell. 

BC08C 

Finds  all  the  eigenvalues  and  eigenvectors  of  a  complex  Hermitian  tri-diagonal 
matrix,  the  vectors  are  normalized  to  have  unit  length. 

The  matrix  is  transformed  into  a  real  form  by  a  unitary  diagonal  transformation. 
EA06C  is  then  used  and  the  vectors  recovered  by  re-applying  the  transformation. 


* 

A 
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Versions:  EC08C;  EC08CD 


Calls:  EA08C. 

Language :  FORTRAN,  Date :  September  1971,  Size:  1.2K;  47  cards. 

Origin:  S.  Marlow,  Harwell. 

ECQ9C 

Finds  all  the  eigenvalues  of  a  complex  Hermitian  tri-diagonal  matrix.  The 
matrix  is  transformed  into  a  real  form  by  a  unitary  diagonal  transformation.  The 
routine  for  the  real  case  EA09C  is  then  used. 

Versions:  EC09C;  EC09CD. 

Calls :  EA09C. 

Language :  FORTRAN,  Date :  September  1971;  Size:  .5K;  12  cards. 

Origin :  S.  Marlow,  Harwell. 

£2^^_Jtettiemgtic<U^unctrons  (see  also  section  S  for  some  functions  of  statistics). 

FA01AS 

Generates  uniformly  distributed  pseudo-random  numbers.  Random  numbers  are 
generated  in  the  ranges  0  <  £  <  1,  -1  <  r]  <  1  and  random  integers  in  1  ^  k  ^  N  where 
N  is  specified  by  the  user. 

A  multiplicative  congruent  method  is  used  where  a  32  bit  generator  word  g  is 

1  C  TO 

maintained.  On  each  call  to  the  routine  g  .  is  updated  to  3  g  mod(2  );  the 

rvf  i  n 

initial  32  bit  value  of  g  is  1 01010101....... 01' .  Depending  on  the  type  of  random 

—32  —31 

number  required  the  following  are  computed,  £  =  2  g  ;  r)  =  2  g  ^-1  or 
k  =  int.part  [QM]  +1. 

The  routine  also  provides  a  facility  for  saving  the  current  value  of  the 
generator  word  and  for  re-starting  with  any  specified  value. 

Versions :  FA01AS ;  there  is  no  double  precision  version. 

Language:  360/BAL,  Date :  Aug.  1967,  Size:  .3K;  ?08  cards. 

Origin:  R.C.F.  McLatchie,  Harwell. 

FA02AS 

To  return  the  signed  fractional  part  of  a  real  floating  point  number. 

Versions:  FA02AS ;  FA02AD. 

Language :  360/BAL,  Date :  1967,  Size :  .IK;  45  cards. 

Origin:  Harwell. 

FA03A 

Generates  pseudo-random  numbers  from  a  Gaussian  distribution  with  mean  zero 
and  standard  deviation  specified  by  the  user. 

The  theory  that  sample  means  have  a  Gaussian  distribution  is  used  and  the 
numbers  are  generated  by  taking  means  of  samples  of  size  12.  There  is  an  entry 
which  allows  the  user  to  specify  his  own  sample  size. 


FA03A;  there  is  no  double  length  version 
FA01AS. 


I 


Versions : 

Calls: 

Language :  FORTRAN,  Date :  November  1971,  Size :  .7K;  33  cards. 

Origin:  A. B.  Smith’11,  Harwell. 

FB01A 

Computes  values  of  the  complete  elliptic  integrals  of  the  1 st  and  2nd  kind .  viz 

2 

K(m)  =  J  (1-m2  sin2  8)”^  d0  0  <  m2  <  1 
0 

■K 

E(m)  =  J  (  t-m2  sin2  0)^  d0  0  m2  <  1 
0 


The  subroutine  uses  an  approximation  of  the  form 


I 


i  ,  2,k 

( 1-m  ) 


k=0 


+  b, 


see  for  n  =  4  C.R.  Hastings,  'Approximations  for  digital  computers'. 


Accuracies : 
Versions : 
Language : 
Origin: 


FBOIA  <  10-6  ( n=4)  ;  FBOIAD  <  10-14  (n=10). 

FBOIA;  FBOIAD. 

FORTRAN,  Date:  1967,  Size :  ,7K;  20  cards. 

S.  Marlow,  Harwell. 


FB02A 


To  compute  values  of  the  incomplete  elliptic  integrals  of  the  1st  and  2nd  kinds 

viz. 


F(ij/,m)  =  J  (i-m2sin20)  ^  d0 
J  0 

'I' 

E(i{i,m)  =  j  (l-m2sin20)^  d0 
o 

where  0  <  m2  ^  1  and  0«  ^  . 

Accuracies:  FB02A  <  10-6.  FB02AD  <  10-14;  FB02BD  <  10-9;  FB02CD  <  10-5. 
Versions:  FB02A ;  FB02AD ;  FB02BD ;  FB02CD. 

Language :  FORTRAN,  Date :  Revised  1967,  Size:  1.8K;  78  cards. 

Origin:  L.  Morgan*,  Harwell. 


FB03A 


To  compute  values  of  the  complete  elliptic  integral  of  the  3rd  kind,  viz. 

Il(n,m)  =  I  ( l-nsin20)_1 ( 1-m2sin26)-^  d8  0  <  m2  4  1 
0 


The  integral  is  represented  in  terms  of  complete  and  incomplete  elliptic 
integrals  of  the  1st  and  2nd  kind  and  the  routines  FB01A  and  FB02A  are  used  to 
obtain  the  required  values. 

Versions:  FB03A;  FB03AD. 

Calls:  FB01A  and  FB02A. 

Language:  FORTRAN,  Date :  Revised  1967,  Size :  1.2K;  35  cards. 

Origin:  M.  Ruffle*,  Harwell. 

FCOIA 

To  evaluate  the  function  e~  erfc(-iz)  for  complex  z,  viz. 


2 

W(z)  =  e-z 


W(z)  is  evaluated  for  z  =  x+iy  x,y  >  0  using  the  approximations 

2 

(a)  if  jzj  «  1  integrate  first  few  terms  of  expansion  of  . 

(b)  if  1  <  |z|  <  4  and  y  <  1.4  integrate  Taylor  series  expansion  of  et2  about 
points  in  the  region  at  which  the  value  of  W(z)  is  known. 

(c)  if  1  <  |z  |  and  y  >  1,4  numerically  integrate 

°°  _  2 

W(z)  =i/f^dt 


using  the  midpoint  rule  or  Gauss-Hermite. 

For  outside  the  region  x,y  >  0  the  relations 
2  _  _ 

W(-z)  =  2e-z  -W(z)  and  W(z)  =  W(z)  are  used. 


Versions :  FCOIA;  FCOIAD. 

Language:  FORTRAN,  Date:  Feb,  1964,  Size:  6. IK;  298  cards. 

Origin:  A.  Bailey*,  Harwell. 

PC03A 

To  compute  values  of  the  Gamrra  function 


r<x) 


oo 

[  . X-1  -t 

.jt  . 


dt 


15 


In  the  range  2  <  x  <  3  an  approximation  of  the  form 


Y, 


is  used;  for 


n=0 


16 


x  >  10  Stirling’s  approximation  is  used  including  up  to  10  terms  of  the  asymptotic 
expansion. 


For  other  values  except  x  =  0  or  a  negative  integer  the  relationship 
T(x+l)  =  xT(x)  is  used  to  relate  the  required  value  with  the  range  2  <  x  <  3. 


Accuracies : 
Remark: 

Versions: 
Language : 
Origin: 


FC03A  <  10"6  jr(x)  j ;  FC03AD  <  10~14  jr(x)j. 

the  IBM  functions  GAVMA  and  DGANMA  are  faster  routines  but  the  former 
is  inferior  in  accuracy  to  FC03A  for  large  x  and  neither  allow  x  <  0. 
FC03A;  FC03AD. 

FORTRAN,  Date :  March  1963,  Size :  IK;  37  cards. 

S.  Marlow,  Harwell. 


FC05A 


To  compute  values  of  the  Beta  function 


B(x,y) 


J  dt 

0 


The  relation  B(x,y)  =  r(x)r(y)/T(x+y)  is  used.  Approximations  similar  to  those  used 
by  FC03A  are  used  but  taking  advantage  of  the  combined  form  that  is  being  evaluated. 


Accuracies : 
Versions : 
Language : 
Origin: 


FC05A  <  to-6  ;  FC05AD  <  10-14. 
FC05A ;  FC05AD . 

FORTRAN,  Date:  May  1963, 
S.  Marlow,  Harwell. 


Size:  1.4K;  64  cards. 


FC10A 


Computes  the  real  and  imaginary  part  of  the  Fresnel  integral 


f(x)  =  C(x)  +  iS(x)  = 


j 

*  f 


t~^e  dt 


The  approximations  used  are  of  the  form 

n  , 

(a)  0  x  <  4  f(x)=e"ix^T  (an  +  ibn)  (  ^)I>+ 

n=0 

It 

(b)  x  >  4  f(x)  =  +  e~ix  ^  (cn  +  idn)  (  4  ) 

n=0 

See  J.  Boersman,  Maths,  of  Computation,  Vol.  14,  No.  72,  1960. 

Accuracies:  PCIOA  <  10  ,  FC1Q\D  <  3  x  10  . 

Versions:  FC10A;  FC1CAD. 

Language :  FORTRAN,  Date:  July  1963  Size:  1.6K;  36  cards. 

Origin:  S.  Marlow,  Harwell. 
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PCI  1A 


To  compute  values  of  the  exponential  integral 


E(x) 


OO 

-/* 


dt  x  >  0 


The  subroutine  uses  approximations  of  the  form 


21 

n 

(a) 

for  0  <  x  <  4  )  a 

L  n 

<S> 

+  log  X 

n=0 

20 

(b) 

for  x  >  4  ^  bn 

4  n 
<;> 

exp(-x) 

n=0 

Accuracies 

:  PC1IA  <  I0-6 ;  PC  HAD 

<  10" 

12 

• 

Versions : 

PC1IA;  FC11AD. 

Language : 

FORTRAN,  ‘  Date:  July  1963,  Size 

Origin : 

S.  Marlow,  Harwell. 

PC  12A 


Computes  the  real  and  imaginary  parts  of  the  Plasma  Dispersion  Function 

.2 


Z(z) 


'  [£L 
7*1  fc-z 


dt  where  z  =  x+iy  , 


for  the  case  y  >  0,  and  the  analytic  continuation  of  this  for  y  <  0  as  defined  by 
Fried  and  Conte,  'The  Plasma  Dispersion  Function',  Academic  Press,  1961.  The 
derivative  Z'(z)  =  -2(1+zZ(Z))  is  also  computed. 

If  y  >  2.75  or  if  y  S*  2  and  x  5  4  an  asymptotic  continued  fraction  due  to 
Fried  and  Conte  is  used,  otherwise  if  x  ^  6.25  a  rational  approximation  from 
Abramowitz  and  Stegun  is  used,  otherwise  a  Taylor  series  is  used. 

e 

Accuracy :  approx.  10  absolute. 

Versions :  PC12A;  FC12AD. 

Language:  FORTRAN,  Date:  March  1973,  Size:  2.8K;  127  cards. 

Origin:  R.  Fletcher,  Harwell. 


FC13A 


To  compute  values  of  Dawson1  s  Integral 

’/V 


F(x)  =  e  j  ew  dt 
0 


for  x  real. 
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FDOIAS 


FDOIBS 


FFOIA 


FFQ2A 


The  following  approximations  are  used, 

2 

(a)  x  <  6  a  Taylor  series  expansion. 

2  2  2 

(b)  6  <  x  <  36  a  series  expansion  in  (x  -xQ  )  where  Xq  is  a  lower  limit 

of  one  of  eight  subranges  in  [6,36]. 


(c)  x2 

Accuracies : 
Versions : 
Calls: 
Language : 
Origin : 


>  36  an  asymptotic  series. 

FC 1 3A  < 1 0~5  |f(x) |  ;  FC1 3AD  <  10-13  |F(x)|. 
FC13A;  FC13AD. 

PB01AD. 

FORTRAN,  Date:  May  1966,  Size:  5.8K; 
A.R.  Curtis,  Harwell. 


154  cards. 


Given  an  integer  n  will  compute  2n. 

Versions:  FDOIAS;  there  is  no  double  length  version. 

Language :  360/fcAL,  Date :  November  1971,  Si2e :  .IK;  73  cards. 

Origin:  M.J.  Hopper,  Harwell. 

Given  an  integer  n  will  compute  16n. 

Versions:  FDOIBS;  there  is  no  double  length  version. 

Language :  360/BAL,  Date:  November  1971,  Size:  .IK;  66  cards. 

Origin:  M.J.  Hopper,  Harwell. 


Computes  values  of  the  Bessel  functions  JQ(x)  and  YQ(x).  A  Chebyshev  series 
in  x  is  used  if  0  <  x  <  8  and  a  similar  series  in  if  x  >8,  see,C.W.  Clenshaw, 
'Mathematical  Tables'  ,  Vol.  5,  NPL. 


Accuracies :  FFOIA  6  sig.  figs.;  FF01AD  9  sig.  figs.;  except  near  x 
the  accuracies  may  be  inferior  to  those  given. 

Versions:  FFOIA;  FF01AD. 

Language :  FORTRAN,  Date :  April  196  3, 

Origin :  S.  Marlow,  Harwell. 


8  where 


Size:  1.9K;  102  cards. 


To  compute  values  of  the  Bessel  functions  J  (x)  and  A  Chebyshev  series 

'  1  ' 

in  x  is  used  if  0  <  x  <  8  and  a  similar  series  in  -  if  x  >8,  see,C.W.  Clenshaw, 
'Mathematical  Tables'  ,  Vol.  5,  NPL. 

Accuracies :  FF02A  6  sig.  figs.;  FF02AD  9  sig.  figs.;  except  near  x  =  8  where 
the  accuracies  will  be  inferior  to  those  given. 

Versions:  FF02A;  FF02AD, 

Language :  FORTRAN,  Date:  June  1963,  Size:  1.9K;  102  cards. 

Origin:  S.  Marlow,  Harwell. 
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FF03A 

Computes  values  of  the  Bessel  functions  Iq(x)  and  Kp(x).  A  Chebyshev  serie.- 
in  x  is  used  if  0  <  x  <  8  and  a  similar  series  in  if  x  >8,  see.C.vv.  rien=haw. 
'Mathematical  Tables'  ,  Vol.  5,  NPL. 


Accuracies: 


Versions : 
Language : 
Origin : 


FF03A  6  sig.  figs.;  FF03AD  9  sig.  figs.;  except  near  \  =  8  where 
the  accuracies  will  be  inferior  to  those  given. 

FF03A;  FF03AD. 

FORTRAN,  Date :  Dec.  1966,  Size:  I.8K;  97  cards. 

S.  Marlow,  Harwell. 


FFQ4A 

Computes  values  of  the  Bessel  functions  l.(x)  and  K.(\).  A  Chebyshev  series 

'  1  ' 

in  x  is  used  if  0  ?  x  <  8  and  a  similar  series  in  —  if  x  >  8,  see.C.W.  Clenshaw, 
'Mathematical  Tables',  Vol.  5,  NPL. 


Accuracies :  FF04A  6  sig.  figs.;  FF04AD  9  sig.  figs.;  except  near  x  =  8  where 
the  accuracies  will  be  inferior  to  those  given. 

Versions :  FF04A;  FF04AD. 

Language :  FORTRAN,  Date:  Dec.  1966,  Size:  1.7K;  94  cards. 

Origin :  S.  Marlow,  Harwell. 

FFQ5A 

Given  x  >  0  computes  the  values  of  the  Spherical  Bessel  functions 


Vx) 


-fc )% 


JmJs(x) 


for  n  =  0  up  to  N,  N  <  29. 

The  method  used  is  based  upon  the  recurrence  relation 


given  by  F.J.  Corbalo  and  J.L.  Uretsky,  J.A.C.M. ,  Vol.  6,  No.  3. 

Accuracies :  FF05A  6  sig.  figs.;  FF05AD  8  sig.  figs. 

Versions :  FFOSA;  FF05AD. 

Language :  FORTRAN,  Date :  Dec.  1963,  Size :  3.2K;  99  cards. 

Origin:  F.R.  Hopgood*,  Harwell. 

FF06A 

Given  x  >  0  computes  values  of  all  the  Bessel  functions  ber(x),  bel(x).  ker(x). 
kel(x),  ber'(x),  bei'(x),  ker'(x)  andkei'(x). 

A  Chebyshev  series  in  x  is  used  if  x  <  10  and  a  similar  series  in  if  x  >  10, 
See,F.D.  Burgoyne,  Maths.  Comp.,  Vol.  17,  No.  83,  1963. 
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Accuracies:  FF06A  sig.  figs.;  FF06AD  8  sig.  figs,  for  x  <  10,6  sig.  figs, 
otherwise. 

Versions ;  FF06A;  FF06AD. 

Language :  FORTRAN,  Date :  Oct.  1964,  Size :  3. IK;  83  cards. 

Origin :  S.  Marlow,  Harwell. 

PG01A 

To  compute  the  various  vector  coupling  coefficients  (3-j,  6-j,  9-j  and  their 
kindred)  of  the  theory  of  angular  momentum  in  quantum  mechanics,  i.e.  the  Wigner  3-J, 
6-j  and  9-j  symbols,  the  Clebsch-Gordan  and  Wigner  coefficient,  the  Racah  coeffi¬ 
cient  and  Jahn's  U-function. 

Versions :  FG01A;  PG01AD. 

Language :  FORTRAN,  Date :  Aug.  1969,  Size :  10. 7K;  448  cards. 

Origin :  J.  Soper,  Harwell. 

FTP!  A 

Calculates  discrete  fourier  transforms.  Given  equally  spaced  complex  data 
f(n)  n  =  0,1,2,...  ,N-1,  of  period  N,  it  calculates  the  transform 

N-1 

f(m)  =  V  f(n)  exp  jpj  m  =  0, 1 ,2,. ..  ,N-1 
n=0 


or  alternatively  given  f(m)  m  =  0, 1 ,2,... ,N-1  calculates  the  inverse  transform 
N-1 

f(n)  =  ^  ^  f(m)  exp  m  =  0,1,2 . N-1 

m=0 

where  in  both  cases  N  must  be  a  power  of  2. 

The  'Fast  Fourier  Transform'  method  is  used,  see,  W.M.  Gentleman  and  G.  Sande, 
'Fourier  Transforms  in  Place',  Proc.  Fall  Joint  Computer  Conference,  1966. 

Versions:  FT01A;  FT01AD. 

Language :  FORTRAN,  Date:  Sept.  1967,  Size:  1.7K;  116  cards. 

Origin :  A.R.  Curtis,  Harwell. 

G.  Geometrical  Problems 
GAQ1A 

To  calculate  the  cartesian  co-ordinates  x,y,z  of  a  point  given  in  spherical 
co-ordinates  r,0,$;  or  vice  versa. 

Versions :  GA01A;  GA01AD. 

Language :  FORTRAN,  Date :  April  1964,  Size :  .8K;  30  cards. 

Origin:  A.  Hearn*,  Harwell. 
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GA02A 


Calculates  the  area  bounded  by  a  contour  f(x,y)  =  c  and  the  side( s)  of  a 
triangle.  The  triangle  is  assumed  to  have  vertices  (0,0),  (2.0),  (2.2)  and  the 
user  must  provide  values  of  the  function  f(x,y)  at  the  vertices  and  mid-points 
of  the  sides  of  the  triangle.  A  point  where  the  contour  cuts  the  triangle  must 
also  be  given. 

The  function  f(x,y)  is  approximated  over  the  triangle  by  a  quadratic  form 
defined  using  the  six  given  function  values. 

Versions :  GA02A ;  GA02AD . 

Language :  FORTRAN,  Date :  Aug.  1964,  Size:  6.  IK;  320  cards. 

Origin :  D.  Miller*,  Harwell. 

GA03A 

Constructs  a  system  of  plane  contours  f(x,y)  =  c^  k=1,2,...,N  over  the 
rectangular  region  x(  <  x  <  x^,  y  <  y  <  y^  and  calculates  the  areas  between 
successive  contours. 

A  mesh  of  isoceles  triangles  is  constructed  over  the  region  and  the  contours 
are  generated  using  linear  interpolation. 

The  user  must  provide  code  to  evaluate  f(x,y)  at  any  point  in  the  region. 

Versions :  GA03A;  GA03AD. 

Language :  FORTRAN,  Date:  May  1967,  Size :  3. IK;  117  cards. 

Origin:  E.J.  York*,  Harwell. 

GA04A 

To  compute  the  solid  angle  subtended  by  a  disc  of  unit  radius  from  a  general 
point  (r,h)  in  the  plane  perpendicular  to  the  plane  of  the  disc. 

The  integral  expression  for  the  solid  angle  is  represented  in  terms  of 
complete  and  incomplete  elliptic  integrals  of  the  first  kind,  see  M.  Ruffle, 

AERE  -  R.54I9. 


Versions : 
Calls: 
Language : 
Origin : 


GA04A;  GA04AD. 

FB01A  and  FB02A. 

FORTRAN,  Date :  April  1966, 
M.  Ruffle*,  Harwell. 


Size:  1.1K;  34  cards. 


To  efficiently  determine  whether  a  point  (x.y)  is  interior  or  exterior  to  a 
given  closed  region  in  the  x,y  plane.  The  boundary  of  the  region  may  be  specified 
as  a  polygon  or  by  a  pair  of  parametric  cubic  splines,  x(t)  and  y(t).  Polar  co¬ 
ordinates  may  optionally  be  used. 

The  method  is  described  in  J.K.  Reid,  AERE  -  R.7298. 


Versions ; 
Calls: 
Language : 
Origin: 


GA05A;  GA05AD. 

KB01A  and  NB01A. 

FORTRAN,  Date :  October  1972, 
J.K.  Reid,  Harwell. 


Size:  7.9K;  400  cards. 
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I^^^Jiitegei^lJNCTIQfE :  including  system  facilities  for  FORTRAN  programmers  (see  also 
section  Z). 

LAO IAS 

Provides  the  FORTRAN  user  with  facilities  to  allocate  main  storage  during 
execution,  i.e.  provides  the  user  with  the  360/0S  GETMAIN  and  FREEMAIN  facilities. 

The  routine  can  be  used  to  get  any  number  of  areas  of  main  core,  to  free  areas 
and  to  obtain  the  size  of  the  largest  currently  available  contiguous  free  area. 

The  areas  obtained  by  IAOIAS  are  referenced  using  normal  FORTRAN  arrays  but  using 
a  displacement  on  the  subscript  which  is  supplied  by  IAOIAS. 

Remark:  The  routine  provides  a  limited  form  of  dynamic  allocation  of  arrays  at 

execution  time  but  is  highly  system  dependent  and  should  be  avoided  in 
programs  intended  to  be  computer  independent. 

Language :  360/BAL,  Date:  June  1970,  Size :  .5K;  192  cards. 

Origin :  M.J.  Hopper,  Harwell. 

ICO IAS 

Given  a  character  string  and  a  search  character  locates  the  position  of  the 
first  occurrence  of  the  character  in  the  string  or  optionally  locates  the  first 
non-occurrence  of  the  character. 

In  either  case  the  search  may  be  made  in  a  forward  direction  from  the  beginning 
or  in  a  backward  direction  from  the  end. 

Versions  IC01AS. 

Language :  360/BAL,  Date :  October  1971,  Size :  .IK;  79  cards. 

Origin :  M.J.  Hopper,  Harwell. 

IC02AS 

To  compare  two  character  strings  giving  a  less  than,  an  equal  to  or  a  greater 
than  result. 

Versions :  IC02AS . 

Language :  360/UAL,  Date:  October  1971,  Size:  .IK;  54  cards. 

Origin:  M.J.  Hopper,  Harwell. 

IDO  IAS 

Computes  the  integer  part  of  log„(lx|)  gi’  ’n  a  real  floating  point  number  x. 

Versions :  ID01AS;  there  is  no  double  length  version. 

Language ;  360/BAL,  Date :  November  1971,  Size :  .IK;  66  cards. 

Origin :  M.J.  Hopper,  Harwell. 

ID01BS 

Computes  the  integer  part  of  log1c(|xl)  given  a  real  floating  point  number  x. 

Versions:  ID01BS;  there  is  no  double  length  version. 

Language :  360/UAL,  Date :  November  1971,  Size :  .IK;  55  cards. 

Origin :  M.J.  Hopper,  Harwell. 
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ID02A 


Finds  K  the  H.C.F.  of  two  given  integers  I  and  J.  It  also  finds  integers  M 
and  N  such  that 


M*I  -  N*J  =  K  K  >  0 

and  M*I,  N*J  >  0  and  such  that  maxj (n j  ,  |m|  J  is  minimized. 

Language :  FORTRAN,  Date;  July  1964,  Size;  .6K;  36  cards. 

Origin :  A.  Gavan*,  Harwell. 

IDQ3A 

Calculates  the  number  of  seconds  elapsed  between  two  given  times  given  in 
units  of  years,  months,  days  and  hours.  The  times  must  lie  in  the  range  1st  March, 
1900  to  28th  Feb.  2000. 

Language :  FORTRAN,  Date ;  Aug.  1964,  Size:  IK;  44  cards. 

Origin:  A.  Bailey*,  Harwell. 


Kj^^^Sorti^^^^ii^^sorted^info^^^^n 

KA01AS 

To  locate  a  specified  entry  in  a  given  table.  The  fixed  length  entries  in 
the  table  are  assumed  to  have  been  ordered  on  a  key  field  within  each  entry  into 
either  ascending  or  descending  order,  the  ordering  being  specified  in  an  index 
array.  The  key  field  is  assumed  to  contain  non-numeric  information  and  may  be 
any  length  up  to  256  characters. 

A  simple  binary  search  technique  is  used. 

Remark:  The  subroutine  has  been  designed  to  be  used  on  tables  sorted  by  KB1QAS 

but  may  be  used  on  Its  own  to  generate  and  maintain  ordered  tables. 
Language:  360/BAL,  Date :  Aug.  1970,  Size:  .2K;  120  cards. 

Origin:  M.J.  Hopper, 

KB01A 

To  sort  an  array  of  numbers  into  ascending  order.  The  'Quicksort'  method  is 
used,  see,  C.A.R.  Hoare,  'Quicksort',  Computer  Journal,  April  1962. 

Versions :  KB01A;  KB01AD;  KB01B  integers;  KB01C  halfword  integers. 

Language :  FORTRAN,  Date:  May  1966,  Size:  2.7K;  122  cards. 

Origin :  M.  Reynolds*,  Harwell. 

KB02A 

To  sort  an  array  of  numbers  into  descending  order.  The  ’Quicksort’  method  is 
used,  see,  C.A.R.  Hoare,  ’Quicksort’,  Computer  Journal,  April  1962. 

Versions:  KB02A;  KB02AD;  KB02B  integers;  KB02C  halfword  integers. 

Language :  FORTRAN,  Date:  May  1966,  Size :  2.6K;  115  cards. 

Origin :  M.  Reynolds*,  Harwell. 


KB03A 


To  sort  an  array  of  numbers  into  ascending  order  maintaining  an  index  array 
to  preserve  a  record  of  the  original  order. 

The  'Quicksort'  method  is  used,  see,  C.A.R.  Hoare,  'Quicksort',  Computer 
Journal,  April  1962. 

Versions;  KB03A;  KB03AD ;  KB03B  integers;  KB03C  halfword  integers. 

Language ;  FORTOAN,  Date ;  May  1966,  Size:  2.9K;  124  cards. 

Origin :  M.  Reynolds*,  Harwell. 

KBQ4A 

To  sort  an  array  of  numbers  into  descending  order  maintaining  an  index  array 
to  preserve  a  record  of  the  original  order. 

The  'Quicksort'  method  is  used,  see,  C.A.R.  Hoare,  'Quicksort',  Computer 
Journal,  April  1962. 

Versions :  KB04A ;  KB04AD;  KB04B  integers;  K.B04C  halfword  integers. 

Language :  FORTRAN,  Date ;  May  1966,  Size :  2.9K;  124  cards. 

Origin:  M.  Reynolds*,  Harwell. 

KB1QAS 

To  sort  a  table  of  fixed  length  entries  into  ascending  or  descending  order, 
sorting  on  a  key  field  within  each  entry.  The  keyfield  is  assumed  to  contain  non¬ 
numeric  information. 

The  entries  in  the  table  are  not  moved  but  rather  an  index  array  is  returned 
specifying  the  required  ascending  or  descending  order. 

Subsorting  on  several  fields  may  be  performed. 

Remark:  Excellent  for  sorting  text  type  information. 

Language :  360/BAL,  Date :  May  1969,  Size :  .7K;  393  cards. 

Origin :  K.  Moody,  IBM. 

KB  11A 

To  sort  n  numbers  from  an  array  of  m  numbers ,  n  <  m.  Options  are  provided 
for  sorting  either  the  first  n  smallest  or  the  first  n  largest  numbers  either  in 
terms  of  their  algebraic  values  or  their  absolute  values. 

Versions :  KBI1A;  KB11AD;  KB11AI. 

Calls:  MXOIA  and  MX02A. 

Language :  FORTRAN,  Date :  July  1972,  Size:  2.7K;  160  cards. 

Origin:  M.J.  Hopper,  Harwell. 

KC01A 

Given  a  set  of  intervals  on  the  real  line,  the  routine  finds  the  smallest  set 
of  disjoint  intervals  whose  union  is  the  union  of  the  original  set,  i.e.  given 
intervals  which  overlap  one  another  it  will  reduce  the  number  of  intervals  by 
merging  together  overlapping  intervals. 


Versions ;  KC01A;  KC01AD. 

Language :  FORTRAN,  Date;  Aug,  1964,  Size :  ,5K;  19  cards. 

Origin:  D.  Willis*,  Harwell. 


Given  two  sets  of  non-overlapping  intervals,  the  routine  merges  the  two  sets 
together  and  returns  the  smallest  set  of  non-overlapping  intervals  which  are  common 
to  both  the  original  sets. 

Versions:  KC02A;  KC92AD. 

Language :  FORTRAN,  Date:  Aug.  1964,  Size :  .7K;  32  cards. 

Origin :  D.  Willis*,  Harwell. 


L. _ Linear  programming 

LAO!  A 

Solves  the  general  linear  programming  problem,  i.e. ,  find  x  which  minimizes 
the  linear  function 

f<x)  =  c,x,  +  c2x2  +  ...  +  cnxn 


Subject  to  linear  constraints 


ai1X1  +  ai2x2  +  —  +  Vn°i  i=1  »2, . . . ,! 


aj1x1  +  aj2x2+  -  +  ajnxn  =  bj  . . m 

where  xA  >  0  i=1,2,...,n. 

The  Revised  Simplex  method  is  used  where  an  inverse  of  the  basis  matrix  is 
maintained  and  updated  at  each  iteration. 

Versions:  LAOIA;  LAOIAD. 

Calls:  MC03AS. 

Language :  FORTRAN,  Date :  Jan.  1966,  Size :  50.8K;  359  cards. 

Origin :  M.J.  Hopper,  Harwell. 

To  find  a  feasible  point  to  a  set  of  linear  constraints,  i.e.  find  values 

Xj,x2,...,xn  which  satisfy  given  constraints  of  the  form 

lj  >  Xj  >  Uj  J=1,2,...,n 


ai1x1  +  ai2X2+  —  +  ainXn  >di  i=’’2 . m 

where  additionally  any  of  the  inequalities  may  be  strict  equalities. 

The  method  is  described  in  R.  Fletcher,  'The  calculation  of  feasible  points 
for  linearly  constrained  optimization  problems',  AERE  -  R.6354. 


Versions :  LA02A;  LA02AD. 

Calls:  MB01B  and  MC03AS. 

Language :  PORTOAN,  Date :  July  1970,  Size :  6.6K;  238  cards. 

Origin  :  R.  Fletcher,  Harwell. 

LA03A 

To  factorize  a  sparse  matrix  A  =  LU,  solve  corresponding  systems  of  equations, 
and  update  the  factorization  when  a  column  of  A  is  modified  or  replaced. 

The  method  of  factorization  and  treatment  of  sparsity  is  similar  to  that  used 
in  MA18A,  which  is  documented  in  the  A.E.R.E.  report  R.6844. 


The  subroutine  has  been  written  primarily  to  handle  the  functions  normally 
performed  on  bases  in  linear  programming  problems,  but  its  usefulness  is  not 
necessarily  restricted  to  that  field. 


Versions : 
Calls: 
Language : 
Origin: 


LA03A;  LA03AD. 

KB1QAS. 

FORTRAN,  Date :  June  1973, 
J.K.  Reid,  Harwell. 


Size :  8.5K;  471  cards. 


M. _ Linear  Algebra  (see  also  section  E) 


MA01B 


To  solve  a  system  of  n  linear  algebraic  equations  in  n  unknowns  with  one  or 
more  right-hand  sides 


n 

E^Jl^il  1=1,2 . 0  . . k 

j=1 

and  optionally  compute  the  inverse  matrix  A  '  of  the  equation  coefficient  matrix 

A  =  Iaijl‘ 

Gaussian  elimination  with  partial  pivoting  is  used,  see  ’Modern  Computing 
Methods',  NPL,  1957,  with  double  length  accumulation  of  inner  products. 


Remark: 
Versions : 
Calls: 
Language : 
Origin : 


Superseded  by  MA21A. 

MA01B ;  MA01BD. 

MC03AS. 

FORTRAN,  Date:  Feb.  1963, 
E.J.  York*,  Harwell. 


Size:  4.4K;  112  cards. 


MA07A 


To  solve  a  system  of  n  linear  algebraic  equations  in  n  unknowns 


n 

E  aijXJ  =  bi  1=1,2 . " 

J=1 


when  the  equation  coefficient  matrix  A  = 


is  band  structured. 
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The  equations  are  solved  by  the  method  of  Gaussian  elimination  without  inter¬ 
changes  of  rows  so  that  stability  is  not  guaranteed.  The  matrix  A  is  presented  to 
the  routine  in  a  compact  form. 

When  it  is  required  to  solve  several  systems  which  have  identical  left-hand 
sides  A,  the  routine  can  either  be  re-entered  in  a  way  that  saves  repeating  the 
elimination  phase,  or  will  except  more  than  one  right-hand  side. 

Remark;  The  pivoting  strategy  used  makes  the  routine  unreliable  for  systems 

which  are  not  positive  definite  or  diagonally  dominant,  try  MA07B. 
Versions :  MA07A;  MA07AD. 

Language:  FORTRAN,  Date :  June  1964,  Size :  1.7K;  61  cards. 

Origin :  D.  Russell,  Atlas  Laboratory,  Chilton,  Berks. 


To  solve  a  system  of  n  linear  algebraic  equations  in  n  unknowns, 


n 

[  Vi  --1  . . 

j=1 

where  the  equation  coefficient  matrix  A  =  ja^}  has  a  band  structure. 

The  equations  are  solved  by  the  method  of  Gaussian  elimination  with  partial 
pivoting.  The  matrix  A  is  passed  to  the  routine  in  a  compact  form. 


When  several  systems  with  identical  left-hand  side  matrices  A  are  to  be 
solved  the  routine  may  be  re-entered  in  a  way  that  avoids  repeating  the  elimination 
phase . 


Remark :  For  positive  definite  band  systems  see  also  MA15A. 

Versions ;  MA07B;  MA07BD. 

Language :  FORTRAN,  Date:  Jan.  1970,  Size ;  2.4K;  91  cards. 

Origin;  J.K.  Reid,  Harwell. 

Forms  the  normal  equations  of  the  linear  least  squares  problem,  i.e.  given 
an  overdetermined  system  of  linear  algebraic  equations 


aijXj  —  b^  i— 1 ,2,... ,m  m  ^  n  , 


T  T 

or  more  compactly  Ax  =  b,  the  subroutine  sets  up  the  equations  A  Ax  =  A  b.  There 
may  be  more  than  one  right-hand  size. 


Remark;  If  the  solution  is  required  see  MA09A. 

Versions ;  MA08A;  M406AD. 

Calls:  MC03AS, 

Language:  FORTRAN,  Date:  June  1964,  Size:  1.3K;  19  cards. 

Origin ;  M.J.  Hopper,  Harwell. 
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MA09A 


Solves  the  linear  least  squares  problem  by  the  so-called  normal  equations 
method,  i.e.  given  an  overdetermined  system  of  linear  algebraic  equations 


It 

a.  .x . 

L  1JJ 


=  b^  i=l,2,...,m  m  >  n;  Ax  =  b 


T  T 

sets  up  and  solves  the  system  A  Ax  =  A  b.  The  solution  so  obtained  is  such  that 

m  n  n 

t i  r  \ - v  -\  ^ 


the  sum  of  squares  of  the  equation  residuals  ^  ^  ^  aijXj  ~  biJ  *s  a  ,Il^n^rnu,n• 

i=1  j=t 

C hole sky  decomposition  is  used  to  solve  the  system.  Equations  with  more  than 
one  right-hand  side  can  be  solved  and  the  user  has  options  to  obtain  equation 
residuals,  sum  of  squares  value  and  the  inverse  [a^a]  '  which  is  usually  required 
for  the  variance-covariance  matrix. 

Remark:  For  a  large  number  of  unkncxvns  the  method  is  likely  to  give  poor 

results  particularly  when  applied  to  fitting  polynomials;  try  MA14A 
or  for  polynomials  VC01A. 

Versions :  MA09A;  MA09AD. 

Calls:  MA08A,  MA1QA  and  NC03AS. 

Language :  FORTRAN,  Date :  June  1964;  Size :  1.5K;  19  cards. 

Origin:  M.J.  Hopper,  Harwell. 


To  solve  a  system  of  n  linear  algebraic  equations  in  n  unknowns 


Calls: 


V  a.  .x.  =  b. 

L  1J  J  1 


i— 1 ,2, . . .  ,n 


where  the  coefficient  matrix  A  =  fa.  .  j  is  symmetric  positive  definite.  The  inverse 

-1  tj  -  - 

matrix  A  is  optionally  computed. 

Syrmetric  Cholesky  decomposition  is  used  with  inner  products  accumulated 
double  length. 

Remark :  Superseded  by  MA22A. 

Versions:  MA1QA;  MAI  CAD. 


Calls : 


MC03AS. 


Language :  FORTRAN,  Date :  May  1964,  Size :  3.4K;  88  cards. 

Origin :  M.J.  Hopper,  Harwell. 

To  solve  an  overdetermined  system  of  m  linear  algebraic  equations  in  n  unknowns 
in  the  minimax  sense,  i.e.  given  equations 


l  ( 

\  a.  .x  .  =  b. 

L  iJ  J  1 


i=1 ,2,... ,m  m  >  n 
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M 


find  the  solution  x^.  j=1,2,...,n  such  that 


r  PE 


i .  .x  .  -  b. 
ij  J  i 


is  minimized. 


The  problem  is  posed  as  an  n  by  m  dual  linear  programming  problem  which  is 
solved  using  a  special  adaptation  of  the  Simplex  algorithm. 

The  routine  returns  residual  values  and  may  be  requested  to  print  solution 
details. 

The  routine  may  be  applied  to  the  problem  of  approximation  by  linear  combina¬ 
tions  of  general  functions  over  a  discrete  point  set. 

Versions:  MAI  IB ;  MA11BD. 

Language :  FORTRAN,  Date :  Sept.  1965,  Size:  50. 7K;  245  cards. 

Origin :  M.J.  Hopper,  Harwell. 

To  solve  a  system  of  n  linear  algebraic  equations  in  n  unknowns 


■  1 

Za.  .x .  =  b. 
ij  J  t 


i-1 ,2,. . . ,n 


when  the  coefficient  matrix  A  =  fa.  J  is 

i.1 

squared. 


or  upper  Hessenberg 


The  routine  may  be  re-entered  to  provide  additional  right-hand  sides  for  the 
economic  solution  of  systems  with  the  same  coefficient  matrix  A. 

Gaussian  elimination  with  partial  pivoting  is  used  accumulating  inner  products 
double  length. 

Versions :  MA12A;  MA12AD. 

Calls:  MC03AS. 

Language :  FORTRAN,  Date:  July  1966,  Size :  3.6K;  167  cards. 

Origin :  M.  Reynolds*,  Harwell. 

To  calculate  a  least  squares  solution  to  an  over-determined  system  of  m  linear 
equations  in  n  unknowns,  i.e.  given  equations 


a^jXj  =  b^  i=1,2,...,m  m  >  n 


calculate  the  solution  vector  x  =  fxj]  such  that  the  sum  of  squares  of  residuals 


m  11 

[I  Vi-bi)' 


i=1  j=1 


is  minimised.  The  user  may  specify  that  the  first  k  equations,  n  >  k  >  0,  are 
satisfied  exactly  in  which  case  the  least  squares  solution  to  the  constrained 
problem  is  calculated. 

There  is  a  re-entry  facility  which  allovs  further  systems  having  the  same 
left-hand  sides  to  be  solved  econo'nically.  Another  entry  may  be  called  to  obtain 
solution  standard  deviations  and  the  variance-covariance  matrix  for  the  previous 
calculation.  The  automatic  printing  of  results  and  the  Calculation  of  equation 
residuals  are  additional  options. 

The  routine  can  be  used  to  solve  the  general  linear  least  squares  data  fitting 
problem  with,  or  without,  equality  side  conditions. 


Versions: 
Calls: 
Language : 
Origin: 


MA14A;  MA14AD. 

0A02A  and  MC03AS. 

FORTRAN,  Date:  June  1968, 
M.J.  Hopper,  Harwell. 


Size :  7.8K;  398  cards. 


MA15C 

To  solve  a  system  of  n  linear  algebraic  equations  in  n  unknowns 


Ea.  .x .  =  b. 

U  J  i 

j=t 


i— 1 


where  the  coefficient  matrix  A  =  fa^}  is  band  structured,  symmetric  and  positive 
definite. 

T 

Symmetric  ( LDL  )  decomposition  is  used  and  full  advantage  is  taken  of  any 
variation  in  band  width.  For  very  large  systems  it  uses  scratch  space  on  backing 
store,  otherwise  it  uses  fast  core  storage. 

There  is  a  re-entry  facility  which  allows  further  systems  with  the  same 
coefficient  matrix  to  be  solved  economically.  The  user  must  supply  a  subroutine 
to  pass  to  MA15C  the  row  elements  of  A. 


The  method  is  described  in  J.K.  Reid,  AERE  Report  -  R.7119. 


Remarks: 

Versions: 
Calls: 
Language : 
Origin : 


This  is  an  improved  version  of  MA15A  which  has  now  been  removed  from 
the  Library. 

MA15C;  MA15CD. 

MO 02 AS. 

FORTRAN,  Date :  April  1972,  Size :  3.4K;  147  cards. 

J.K.  Reid,  Harwell. 


MA16A 

To  solve  a  system  of  n  linear  algebraic  equations  in  n  unkncxvns 


l 

1=1 


a.  .x .  =  b. 
ij  J  i 


i— 1 ,2, . . .  ,n 
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when  the  coefficient  matrix  A  =  fa^jj  is  symmetric  positive  definite  and  is  very 
large  and  sparse.  It  uses  the  method  of  conjugate  gradients,  see,  J.K.  Reid, 

AERE  -  R.6545. 

The  user  is  required  to  write  code  to  multiply  the  matrix  A  into  a  vector 
where  full  advantage  of  the  sparsity  of  A  may  be  taken  into  account  in  the  code. 

Versions :  MA16A;  MA16AD. 

Language :  FORTRAN,  Date :  Oct.  1970,  Size :  1.1K;  55  cards. 

Origin :  J.K.  Reid,  Harwell. 

MA17A 

To  solve  a  system  of  n  linear  algebraic  equations  in  n  unknowns 
n 

Ea.  .x.  =  b.  i=t ,2,. .. ,n;  Ax  =  b 
xj  j  i  -  - 

j=1 

where  the  coefficient  matrix  A  =  fa^]  is  large  and  sparse  and  symmetric  positive 
definite. 

T 

It  provides  facilities  to  (a)  decompose  the  matrix  A  into  factors  LDL  , 
where  L  is  lower  triangular  and  D  diagonal,  (b)  to  solve  the  system  Ax  =  b  or 
compute  the  product  Ab,  (c)  factorize  economically  a  new  matrix  which  has  the 
same  sparsity  structure  as  a  previous  one. 

MA17A  is  a  variant  of  MA18A  the  subroutine  for  the  general  linear  sparse  case 
and  provides  similar  options,  see  MA18A. 

The  method  is  described  in  J.K.  Reid,  AERE  Report  -  R.7119. 


Versions : 
Calls: 
Language : 
Origin: 


MA17A;  MAI 7 AD. 

KB1QAS. 

FORTRAN,  Date :  April  1972, 
J.K.  Reid,  Harwell. 


Size:  7K;  355  cards. 


MA18A 

To  solve  a  system  of  n  linear  algebraic  equations  in  n  unknowns 


I 

i=i 


a.  .x . 
ij  J 


=  b. 


l 


i— 1 ,2,...,ni 


Ax  =  b 


where  the  coefficient  matrix  A  =  ja^jj  is  large  and  sparse,  i.e.  contains  mostly 
zero  elements. 


It  provides  facilities  to  (a)  decompose  the  matrix  A  into  triangular  factors, 

T 

(b)  to  solve  the  system  Ax  =  b  or  solve  A  x  =  b  or  carry  out  either  of  the  opera- 

I  ~  “ 

tions  Ab  or  A  b,  (c)  to  factorize  economically  a  new  matrix  which  has  the  same 
sparsity  structure  as  a  previous  one,  and,  (d)  load  a  new  matrix  into  the  list 
processing  form  required  by  facility  (c).  For  (d)  the  user  must  supply  a  sub¬ 
routine  to  pass  over  the  columns  of  the  new  matrix  one  at  a  time. 
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4 


Optionally,  automatic  implicit  scaling  of  equations  and  unknowns  is  performed. 
Gaussian  elimination  is  used  combined  with  list  processing  methods  to  economise  on 
storage.  The  pivotal  strategies  used  are  designed  to  keep  down  the  grwth  in  the 
number  of  non-zero  elements.  The  degree  to  which  the  routine  does  this  is  under 
the  control  of  the  user  giving  a  choice  of  error  growth  against  savings  in  storage. 
A  measure  of  the  error  growth  is  returned. 

The  method  is  described  in  A.R.  Curtis  and  J.K.  Reid,  AERE  -  R.6844. 

Versions :  MA18A;  MAI 8 AD, 

Calls:  M212A  and  KB10AS. 

Language :  FORTRAN,  Date :  June  1971,  Size :  12. 5K;  636  cards. 

Origin:  A.R.  Curtis  and  J.K.  Reid,  Harwell. 


To  solve  an  overdetermined  system  of  m  linear  equations  in  n  unknowns  in  the 


Lj  sense,  i.e.  given  equations 


Ea.  .x .  =  b. 

U  J  x 


1=1,2... 


find  a  solution  Xj  j  =  t,2,...,n  such  that 


£ I  £ 


i=i  j=l 

is  minimized.  There  is  an  option  of  constraining  the  solution  so  that  Xj  >  0 
j  =  1,2,... ,n. 

The  problem  is  posed  as  a  primal  LP  problem  and  solved  using  a  variant  of  the 
standard  Simplex  method  which  has  the  ability  to  pass  through  several  Simplex 
vertices  at  each  iteration,  see  I.  Barrowdale  and  F.D.K.  Roberts;  an  improved 
algorithm  for  discrete  Lf  linear  approximation;  Maths.  Dept,  preprint,  Univ.  of 
Victoria,  Canada. 

The  routine  can  be  used  for  L1  linear  data  fitting  problems. 

Versions:  MA20A;  M\20AD.  MA20B ;  MA20BD.  B  versions  constrain  x.  >  0 

-  j 

j  =  1 ,2,... ,n. 

Language :  FORTRAN,  Date:  June  1972,  Size:  3.9K;  172  cards. 

Origin:  I.  Barrowdale,  Univ.  of  Victoria,  Canada, 


Given  an  n  by  n  matrix  A  =  !ajj !  performs  one  or  more  of  the  following  tasks, 
(a)  solves  the  system  of  linear  algebraic  equations 


II 


i—  1  ^2 )  •  *  • 
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given  the  right-hand  sides  i=1,2,...,n,  and  provides  a  re-entry  facility 
for  the  rapid  solution  of  further  systems  of  equations  which  have  the  same 
elements  a^j. 

(b)  computes  the  inverse  matrix  A  1  of  A. 

(c)  computes  the  value  of  the  determinant  of  A. 

The  subroutine  will  optionally  perform  iterative  refinement  in  order  to  both 
improve  the  accuracy  of  the  answer  (solution  or  inverse)  and  provide  error  esti¬ 
mates  based  either  on  the  precision  of  the  computer  or  on  user  supplied  accuracy 
information.  An  option  for  scaling  the  matrix  is  provided. 

The  method  is  basically  Gaussian  elimination  with  partial  pivoting,  implicit 
scaling  and  iterative  refinement  and  applying  small  random  perturbations  in  order 
to  estimate  errors,  see  S.  Marlow  and  J.K.  Reid,  AERE  -  R.6899. 

Versions:  MA21A;  MA2IAD. 

Calls:  FAOIAS,  MC03AS  and  NC1CA. 

Language :  FORTOAN,  Date :  Aug.  1971,  Size :  9K;  353  cards. 

Origin:  S.  Marlow  and  J.K.  Reid,  Harwell. 


Given  a  symmetric  positive  definite  n  by  n  matrix  A  =  Ja^]  this  subroutine 


performs  one  or  more  of  the  following  tasks. 

(a)  Solves  the  system  of  linear  algebraic  equations 
n 

aijxj  =  bi  i=1’2 . n 

j=1 


II 

I 


given  the  right-hand  sides  i=1,2,,..,n,  and  provides  a  re-entry  facility 
for  the  rapid  solution  of  further  systems  of  equations  which  have  the  same 


elements  a^. 


(b)  computes  the  inverse  matrix  A  1  of  A. 

(c)  computes  the  value  of  the  determinant  of  A. 


This  subroutine  provides  for  the  synmetric  positive  definite  case  all  the 
facilities  provided  by  MA21A  for  the  general  real  case.  Symmetric  decomposition 
is  used  in  the  elimination  phase  otherwise  the  method  details  are  the  same  as  for 
MA21A. 


Versions : 


Calls: 

Language: 

Origin: 


MA22A;  MA22AD. 

FAOIAS  and  MC03AS. 

FORTRAN,  Date:  Aug.  1971,  Size:  8K;  285  cards. 

S.  Marlow  and  J.K.  Reid,  Harwell. 


MA25A 


l 


i 


Given  a  complex  n  by  n  matrix  A  =  ja^}  and  a  complex  right  hand  side  b^ 
i=1,n  this  subroutine  will  solve  the  complex  linear  equations,  compute  the  inverse 
matrix  or  evaluate  the  determinant.  It  is  a  complex  version  of  MA21A  and  offers 
identical  facilities. 

The  FORTRAN  COMPLEX  facility  is  used. 

Versions:  MA23A;  MA23AD. 

Calls:  FAOIAS,  ME 06 AS  and  ME07A. 

Language :  FORTRAN,  Date:  Aug.  1971,  Size:  12. 3K;  363  cards. 

Origin :  S.  Marlow  and  J.K.  Reid,  Harwell. 

MA24A 

Given  a  complex  Hermitian  n  by  n  matrix  A  =  ja^j}  and  a  complex  right  hand 
side  bi  i=1,n  this  subroutine  will  solve  the  complex  linear  equations,  compute  the 
inverse  matrix  or  evaluate  the  determinant.  It  is  a  Hermitian  version  of  MA22A 
and  offers  identical  facilities. 


The  FORTRAN  COMPLEX  facility  is  used. 


Versions : 
Calls : 
Language : 
Origin : 


MA24A ;  MA24AD. 

FAOIAS  and  ME06AS. 

FORTRAN,  Date:  Aug.  1971, 

S.  Marlow  and  J.K.  Reid,  Harwell. 


Size: 


10.9K;  285  cards. 


MB01B 

To  compute  the  inverse  matrix  A  1  of  an  n  by  n  real  matrix  A  = 

Gaussian  elimination  with  partial  pivoting  is  used  with  inner  products 
accumulated  double  length. 


Remark: 
Versions : 
Calls: 
Language: 
Origin : 


Superseded  by  MA21A. 

MBOIB,  MB01BD. 

MC03AS. 

FORTRAN,  Date :  Jan.  1964, 
L.  Morgan*,  Harwell. 


Size:  3.4K;  88  cards. 


MB02A 

To  evaluate  the  ad.joint  (or  ad. jugate)  matrix  of  an  n  by  n  real  matrix 
A  =  {a^j,  n  <  20,  and  A  may  be  singular. 

The  determinant  is  also  evaluated  and  optionally  the  inverse  of  A  (A  non¬ 
singular)  instead  of  the  adjoint.  The  relationship  Adj(A)  =  det(A).A  '  is  used. 


Gaussian  elimination  with  partial  pivoting  is  used. 


Remark : 

Versions : 
Language : 
Origin : 


There  are  more  efficient  routines  in  the  library  for  evaluating 
determinants  and  inverses. 

MB02A;  MB02AD. 

FORTRAN,  Date :  Dec.  1963,  Size :  4K;  98  cards. 

G.  Packhairf*,  Harwell. 


35 


MB04A 


Given  A 


the  inverse  matrix  of  a  partitioned  n  by  n  real  symmetric  matrix 


A  = 


where  A(  is  (n-l)  by  (n-l),  A2  a  row  vector  and  A^  a  scalar;  this  subroutine 
calculates  the  (n-1)  by  (n-l)  inverse  matrix  of  the  submatrix  Aj. 

Versions :  MB04A ;  MB04AD . 

Language :  FORTRAN,  Date:  May  1964,  Size :  .6K;  14  cards. 

Origin :  M.J.D.  Powell,  Harwell. 

MBQ5A 

Given  a  partitioned  n  by  n  real  symmetric  matrix 


where  A  is  (n-1)  by  (n-1),  A  is  a  row  vector  and  A_  a  scalar,  and  given  A  1  the 

I  ■  v  ® 

inverse  of  the  submatrix  A^ ;  the  subroutine  calculates  A~  the  inverse  of  A. 
Versions :  MB05A ;  MB05AD . 

Language :  FORTRAN,  Date;  May  1964,  Size:  IK;  26  cards. 

Origin:  M.J.D.  Powell,  Harwell. 

MBICA 

To  calculate  A+  the  generalized  inverse  of  an  m  by  n  rectangular  matrix  A, 
i.e.  such  that  AA+A  =  A. 

The  user  may  either  specify  the  rank  of  A  or  provide  an  estimate  of  the 
accuracy  of  the  elements  in  A  in  order  that  the  rank  may  be  estimated  automatic¬ 
ally. 

Versions:  MB1QA;  there  is  no  double  precision  version. 

Calls:  MC03AS. 

Language :  FORTRAN,  Date :  June  1970,  Size :  4. IK;  144  cards. 

Origin:  M.J.D.  Powell,  Harwell. 

MB11A 

To  calculate  A+  the  generalized  Inverse  of  an  m  by  n  (m  <  n)  rectangular  matrix 
A  in  the  special  case  that  the  rank  of  A  is  equal  to  m.  i.e.  such  that  AA+A  =  A 
which  with  full  rank  can  be  defined  as  A+  =  AT(AAT)-1. 

Householder  type  orthogonal  transformations  with  row  and  column  interchanges 
are  used  in  a  method  described  in  M.J.D.  Powell,  AERE  -  R.6072. 

Versions:  MB 1 1A ;  MB  HAD. 

Language :  FORTRAN,  Dates  May  1969,  Size:  3.3K;  153  cards. 

Origin:  M.J.D.  Powell,  Harwell. 
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SCO  IAS 


To  calculate  the  product  of  two  matrices,  i.e.  given  compatible  matrices 
A  =  and  B  =  forms  the  product  matrix  C  =  where 

n 

cAj  =  ^  *  aiK^K j  A=l»2*...,l; 

K=1 

Inner  products  are  accumulated  double  length. 

Versions :  MC01AS;  M301AD. 

Language :  360/BAL,  Date :  Sept.  1967,  Size :  .2K;  74  cards. 

Origin:  R.C.F.  McLatchie,  Harwell. 

MCQ2AS 

To  evaluate  the  inner  product  a  b  of  two  vectors  a  =  fa^J  and  b  =  {b^J  of 
length  n,  i.e.  evaluate 

n 

s  =  \  a.b. 

L  11 

i=1 

The  products  are  accumulated  double  length,  and  use  of  MC02AS  will  in  general  result 
in  faster  execution  compared  with  any  equivalent  FORTRAN  code. 

Versions :  MC02AS ;  NC02AD;  M202BS ;  MC02BD;  in  the  B  versions  the  elements  of 

the  vectors  can  be  stored  in  any  regular  fashion,  i.e.  the  user  gives 
the  first  two  elements  of  each  vector  and  the  subroutine  locates  the 
rest  by  using  the  displacement  of  the  second  from  the  first  and  the 
length  of  the  vector. 

Language :  360/BAL,  Date :  Aug.  1967,  Size :  .IK;  26  cards. 

Origin :  R.C.F.  McLatchie,  Harwell. 

NCQ3AS 

T 

To  evaluate  the  sum  of  a  number  c  and  an  inner  product  a  b  of  two  vectors 
a  =  Ja^j  and  b  =  fbjJ  using  double  length  accumulation  of  intermediate  results 
to  minimize  rounding  errors,  i.e.  evaluate 


n 


i=l 


the  signs  being  specified.  The  elements  a  and  b  may  be  stored  in  any  regular 
fashion.  The  first  two  elements  of  each  vector  are  given  and  the  displacement 
of  the  second  from  the  first  and  the  length  n  are  used  to  locate  the  remainder. 
The  use  of  MC03AS  will  in  general  result  in  faster  execution  than  any  equivalent 
FORTRAN  code. 

Versions :  MD03AS;  MC03AD;  the  result  s  will  on  request  be  returned  to  full 

double  precision  in  the  single  precision  version  &C03AS. 

Language :  360/BAL,  Date :  Aug.  1967,  Size :  .2K;  85  cards. 

Origin :  R.C.F.  McLatchie,  Harwell. 


37 


MC04B 


Transforms  an  n  by  n  real  symmetric  matrix  A  in  to  a  tri -diagonal  matrix  having 
the  same  eigenvalues  as  A, 

Householder's  method  is  used,  see,  J.H.  Wilkinson,  Numerlsche  Mathematik, 

Dec.  1962. 


Versions :  MC04B ;  MC04BD . 

Language :  FORTRAN,  Date :  1966,  Size :  2. IK;  6)  cards. 

Origin :  Harwell. 

MC05AS 

To  evaluate  the  sum  of  triple  products  of  elements  of  three  given  vectors 
a  =  ja^j,  b  =  and  c  =  Jc^j  of  length  n,  i.e. evaluate 

n 

S  =  \  a.b.c. 

L  111 

i=1 


the  products  are  accumulated  double  length  and  the  use  of  MC05AS  will  in  general 
result  in  faster  execution  time  than  any  equivalen  FORTRAN  code. 


Remark:  Useful  for  weighted  linear  least  squares  problems  where  an  inner  product 

of  two  vectors  x  and  ^  modified  by  a  vector  of  weights  w  is  required. 
Versions :  MC05AS ;  MC05AD. 

Language :  360/BAL,  Date:  December  1971,  Size:  .IK;  66  cards. 

Origin:  M.J.  Hopper,  Harwell. 

MC06A 

Applies  the  Gram-Schmidt  orthogonalization  process  to  n  vectors  in  an  m 
dimensional  space,  n  <  m. 

The  vectors  are  passed  as  adjacent  columns  in  a  two  dimensional  array.  Double 
length  accumulation  of  inner  products  is  performed. 


Versions :  M0O6A ;  MC06AD . 

Calls:  M002BS. 

Language :  FORTRAN,  Date :  Sept.  1963,  Size:  2.1K;  32  cards. 

Origin :  Osbourne*,  Harwell. 

MC07A 

Given  an  n  by  n  real  symmetric  matrix  A  calculates  the  coefficients  of  its 
characteristic  polynomial  the  roots  of  which  will  be  the  eigenvalues  of  A. 

The  matrix  is  reduced  to  tri-diagonal  form  by  Householder' s  method  and  the 
coefficients  of  the  polynomial  calculated  using  a  recurrence  relation. 


Remark : 
Versions : 
Calls: 
Language: 
Origin : 


This  method  should  not  be  used  to  find  eigenvalues  but  rather  EA07C. 
NC07A;  MC07AD. 

MC04B. 

FORTRAN,  Date :  Jan.  1964,  Size:  1.8K;  39  cards. 

M.J.D,  Powell,  Harwell. 


MC08A 

Transforms  an  n  by  n  real  matrix  A  to  an  upper  Hessenberg  matrix  having  the 
same  eigenvalues  as  A. 

Householder's  method  is  used,  see,  J.H.  Wilkinson,  Numerische  Mathematik,  1962, 
Versions:  NC08A;  MC08AD. 

Language :  FORTRAN,  Date :  Nov.  1966,  Size:  2.3K;  59  cards. 

Origin:  E.J.  York*,  Harwell. 

MC09A 

Given  a  sparse  matrix  A  stored  in  a  compact  form  and  two  vectors  x  and  jr, 

T 

evaluates  either  of  the  matrix-vector  products  a=^  +  Axorb=ji+Ax. 

Versions:  MC09A ;  MC09AD. 

Language :  FORTRAN,  Date :  February  1972,  Size:  .8K;  21  cards. 

Origin :  J.K.  Reid,  Harwell. 

Calculates  scaling  factors  for  the  rows  and  columns  of  an  n  by  n  real  matrix. 

If  the  scaling  is  applied  before  Gaussian  elimination  with  pivoting  the  choice 
of  pivots  will  more  likely  lead  to  lew  growth  in  round-off  errors.  The  scaling 
factors  are  returned  as  integral  pavers  of  16. 

The  method  is  described  in  A.R.  Curtis  and  J.K.  Reid,  AERE  -  TP. 444,  1971. 
Versions:  1VC1QA;  NC1QAD. 

Language :  FORTRAN,  Date :  June  1971,  Size:  3.7K;  151  cards. 

Origin :  A.R.  Curtis  and  J.K.  Reid,  Harwell. 

WJ1IA 

To  carry  out  a  rank  one  update  to  a  given  positive  definite  or  semi-definite 

T 

symmetric  matrix  which  is  stored  in  a  factorized  form  A  =  LDL  ,  i.e.  given  a  rank 

T  ~  T 

one  matrix  Oww  forms  A  =  A  +  Oww  . 

The  routine  was  written  to  be  used  by  optimization  routines  and  will  also 
(i)  accumulate  a  sum  of  rank  one  updates,  (ii)  cariy  out  projection  and  allied 
operations  on  A  which  reduce  the  rank,  and  (iii)  update  rank  deficient  matrices 
where  it  is  known  from  other  considerations  that  the  rank  remains  unchanged. 

T 

There  are  additional  entry  points  which,  factorize  A  =  LDL  ,  recover  A  from 
its  factors,  compute  Ax  or  A-  x,  and  obtain  A  1  in  factored  form. 

The  method  is  described  in  M.J.D.  Powell  and  R.  Fletcher,  Harwell  Theoretical 
Physics  report  TP.  519. 

Versions :  JC11A;  MC11AD. 

Language :  FORTRAN,  Date :  Jan.  1973,  Size :  4.9K;  275  cards. 

Origin :  R.  Fletcher,  Harwell. 


39 


MCI2A 


Calculates  scaling  factors  for  the  rows  and  columns  of  an  n  by  n  real  sparse 
matrix. 

If  the  scaling  is  applied  before  Gaussian  elimination  with  pivoting  the  choice 
of  pivots  will  more  likely  lead  to  low  growth  of  round-off  errors.  The  factors 
returned  are  integral  powers  of  16. 

The  method  is  described  in  A.R.  Curtis  and  J.K.  Reid,  AERE  -  TP. 444,  1971. 

The  matrix  is  stored  in  the  condensed  form  used  by  MA18A. 

Versions:  MC12A;  MC12AD. 

language :  FORTRAN,  Date :  June  1971,  Size :  3.4K;  153  cards. 

Origin:  A.R.  Curtis,  Harwell. 

NC13A 

Given  the  pattern  of  nonzeros  of  a  sparse  matrix  A,  finds  a  symmetric  permuta¬ 
tion  that  makes  the  matrix  block  upper  triangular,  i.e.  finds  P  such  that  U  =  PAP-1 
is  block  upper  triangular. 

The  method  is  that  of  R.W.H.  Sargent  and  A.W.  Westerberg,  Trans.  Inst.  Chem. 
Engineers  (1964),  42,  190-197. 

Versions :  MC13A;  MC1MD;  MC13C;  MC13CD;  the  A  versions  use  INTEGER*2s  and 
the  C  versions  IOTEGER*4s. 

language :  FORTRAN,  Date:  Feb,  1973,  Size :  2.2K;  218  cards. 

Origin:  I.  Duff,  Oxford  Univ.,  J.K.  Reid,  Harwell. 

MC14A 

Transforms  an  n  by  n  real  matrix  A  to  an  upper  Hessenberg  matrix  having  the 
same  eigenvalues  as  A. 

T 

Transformations  of  the  form  I  -  Ouu  are  used,  see  J.H.  Wilkinson  and 
C.  Reinsch,  'Handbook  for  Automatic  Computation  -  Linear  Algebra'  ,  Springer-Verlag. 

There  is  an  option  for  specifying  A  as  a  submatrix  of  a  larger  matrix. 

Versions:  MC14A;  MC14AD. 

Calls:  MCOMS. 

language :  FORTRAN,  Date :  June  1973,  Size :  1.6K;  648  cards. 

Origin :  ORTHES  from  the  above  reference,  modified  for  Harwell  by  S.  Marlow. 

MC15A 

To  scale  the  rows  and  columns  of  a  given  real  matrix  A  so  that  its  elements 
are  suitably  balanced  for  accurate  computation  of  its  eigenvalues  and  eigenvectors. 

Diagonal  similarity  transformations  are  used  based  on  powers  of  16  so  that  on 
a  hexadecimal  based  computer  only  the  exponent  fields  of  the  matrix  elements  are 
modified.  Searches  along  rows  and  columns  for  isolated  eigenvalues  are  also  made 
and  the  matrix  permuted  so  as  to  group  such  eigenvalues  together.  For  the  method 
see  J.H.  Wilkinson  and  C.  Reinsch,  'Handbook  for  Automatic  Computation  -  Linear 
Algebra' ,  Springer-Verlag. 


Versions  MC  ISA;  MCI  SAD. 

Language :  FORTRAN,  Date :  June  1973,  Si2e :  2. IK;  118  cards. 

Origin :  BALANCE  from  the  above  reference,  modified  for  Harwell  by  S.  Marlow. 

MDQ3A 

To  evaluate  the  determinant  of  an  n  by  n  real  syinnetric  matrix. 

Gaussian  elimination  is  used  with  a  diagonal  pivotal  strategy  which  preserves 
symmetry  (and  can  be  unstable  unless  the  matrix  is  positive  definite). 

Remark:  Superseded  by  MA22A. 

Versions :  MD03A;  MD03AD. 

Language :  FORTRAN,  Date :  Feb.  1964,  Size :  1.8K;  99  cards. 

Origin :  M.J.D.  Powell,  Harwell. 

MEOIB 

Transforms  an  n  by  n  Hermitian  matrix  into  a  tri-diagonal  matrix  having  the 
the  same  eigenvalues.  Householder's  method  is  used,  see,  J.H.  Wilkinson,  Numerische 
Mathematik,  Dec.  1962. 


The  FORTRAN  COMPLEX  facility  is  not  used. 

Versions :  MEOIB;  MEOIBD. 

Language :  FORTRAN,  Date:  1966,  Size:  3.4K;  78  cards. 

Origin :  Harwell. 

MEQ2A 

Given  an  Hermitian  matrix  H  and  a  complex  vector  z,  computes  the  complex 
product  x  =  Hz. 

The  FORTRAN  COMPLEX  facility  is  not  used. 

Versions :  ME02A ;  ME02AD . 

Language :  FORTRAN,  Date :  July  1963,  Size:  IK;  20  cards. 

Origin :  E.J.  York*,  Harwell. 

ME04A 

To  solve  a  system  of  n  complex  linear  algebraic  equations  in  n  unknowns, 
n 

E  **A  ■  b‘  i"'2 . - 

j=1 

Gaussian  elimination  is  used.  The  FORTRAN  COMPLEX  facility  is  not  used. 


Remark : 
Versions : 

Calls: 
Language : 
Origin : 


Superseded  by  MA23A. 

ME04A;  ME04AD ;  ME04B ;  ME04BD; 
complex  upper  Hessenberg. 

MC05AS. 

FORTRAN,  Date:  July  1966, 
Harwell. 


B  versions  solve  system  which  is 


Size :  2.8K;  108  cards. 
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ME06AS 


To  evaluate  the  sum  of  a  complex  constant  c  and  an  inner  product  of  two  complex 
vectors  a  =  ja^]  and  b  =  Jb^j  accumulating  intermediate  results  double  length,  i.e. 
evaluate 

n 

•-*c±£  aibi 

i=1 


the  signs  being  specified. 

The  elements  of  the  vectors  a  and  b  may  be  stored  in  any  regular  fashion.  The 
first  two  elements  of  each  vector  are  given  and  the  displacement  of  the  second  from 
the  first  and  the  length  n  are  used  to  locate  the  remainder.  There  is  an  option 
which  allows  the  user  to  specify  the  vector  b  to  be  the  complex  conjugate  of  the 
actual  vector  passed  to  the  routine.  The  c wist ant  and  the  elements  of  the  vectors 
must  be  FORTRAN  COMPLEX  variables. 

Versions:  ME 06 AS;  ME06AD;  s  may  optionally  be  returned  to  full  double  precision 
when  using  the  single  precision  version  ME06AS. 

Language :  360/BAL,  Date:  June  197!,  Size :  .3K;  121  cards. 

Origin:  S.  Marlow,  Harwell. 

ME07A 

Calculates  scaling  factors  for  the  rows  and  columns  of  an  n  by  n  complex 
matrix. 

If  the  scaling  is  applied  before  Gaussian  elimination  with  pivoting  the  choice 
of  pivots  will  more  likely  lead  to  lav  growth  in  round-off  errors.  The  scaling 
factors  are  returned  as  integral  powers  of  16. 

See,  A.R.  Curtis  and  J.K.  Reid,  AERE  -  TP. 444,  1971. 

Versions :  ME07A;  ME07AD. 

Language :  FORTRAN,  Date :  Aug.  1971,  Size:  3.9K;  151  cards. 

Origin :  S.  Marlow,  Harwell. 

ME08A 

Transforms  an  n  by  n  complex  Hermitian  matrix  A  =  |a^j]  aij  =  to  a  tri- 

diagonal  Hermitian  matrix  having  the  same  eigenvalues  as  A. 

—  T 

Complex  Householder  orthogonal  transformations  of  the  form  (I  -  9uu  )  are 
applied,  see  Wilkinson,  J.H.  Numerische  Mathematik,  December  1962. 

Versions  :  ME08A ;  ME08AD . 

Calls:  ME06AS. 

Language :  FORTRAN,  Date :  Septentoer  1971;  Size :  3.2K;  77  cards. 

Origin:  S.  Marlow,  Harwell. 
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MX01A 


To  extend  the  MAX  and  MIN  facilities  of  FORTRAN.  They  find  the  position  of 
the  algebraic  minimum  or  maximum  element  in  a  vector  of  numbers. 

The  vector  my  be  stored  in  any  regular  fashion,  the  user  specifies  the  first 
and  second  elements  and  the  number  of  elements  in  the  vector. 

The  most  common  application  is  to  find  the  minimum  or  maximum  element  in  a 
simple  FORTRAN  array. 

Versions :  MX01A;  MX01AD;  MX01I  integers. 

Language :  360/BAL,  Date:  Dec.  1969,  Size:  .IK;  45  cards. 

Origin:  M.J.  Hopper,  Harwell. 

MXQ2A 

To  extend  the  MAX  and  MIN  facilities  of  FORTRAN.  They  find  the  position  of 
the  minimum  or  maximum  elements  of  absolute  value  in  a  vector  of  numbers. 

The  vector  may  be  stored  in  any  regular  fashion,  the  user  specifies  the  first 
and  second  elements  and  the  number  of  elements  in  the  vector. 

The  most  common  application  is  to  find  the  minimum  or  maximum  element  of 
absolute  value  in  a  simple  FORTRAN  array. 

Versions :  MX02A;  MX02AD ;  MX02I  integers. 

Language :  360/BAL,  Date :  Dec.  1969,  Size :  .IK;  49  cards. 

Origin :  M.J.  Hopper,  Harwell. 


Non-linear  Equations 

To  find  a  real  zero  of  a  continuous  function  f(x)  of  one  variable  in  a  given 


interval  a  <  x  ^  b,  i.e.  solve  the  non-linear  equation  in  one  variable 


f<x)  =  0 


a  <  x  ^  b 


The  user  must  supply  code  to  evaluate  f(x)  at  any  point  in  the  interval. 

A  binary  search  of  the  interval  is  made  to  find  an  interval  [n,|3]  such  that 
the  signs  of  f(a)  and  f(@)  differ.  The  zero  is  then  located  by  a  combination  of 
linear  interpolation  and  binary  subdivision. 

The  user  can  limit  the  number  of  function  evaluations  and  must  specify  an  e 
so  that  any  point  £  such  that  |f(£)|  <  e  is  considered  a  zero  of  f(x). 

Versions :  NB01A;  NB01AD. 

Language :  FORTRAN,  Date :  Feb.  1972,  Size:  1.2K;  110  cards. 

Origin :  M.J.D.  Powell  and  S.  Marlow,  Harwell. 
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NS01A 


To  solve  a  gysteu  of  n  non-linear  equations  in  n  unknowns,  i.e.  solve 


fi(x1,x2,...,xn)  . . n 


The  user  must  supply  initial  estimates  of  x1»x2,...,xn  and  a  subroutine  to 
compute  values  of  the  functions  f^  i=1,2,...,n. 

The  method  uses  the  ideas  of  Newton-Raphson  and  Steepest  descent  coupled  with 
Broyden's  method  for  improving  Jacobi  matrices,  see,  M.J.D.  Powell,  AERE  -  R.5947. 


Derivatives  are  not  required  but  the  user  must  indicate  a  reasonable  step  size 

to  be  used  for  approximating  derivatives  by  finite  differences.  A  solution  to  the 

n 


system  is  accepted  when 


e,  e  specified  by  the  user. 


i=l 


Versions : 
Calls: 
Language : 
Origin: 


NS01A;  NS01AD. 

MB01B  and  CALFUN  (a  user  routine). 
FORTRAN,  Date:  May  1968,  Size: 
M.J.D.  Powell,  Harwell. 


6.6K; 


360  cards. 


NS03A 


To  solve  a  system  of  m  nonlinear  equations  in  n  unknowns,  x  =  x1 ,x2>... ,xn, 
of  the  form 


ll 

^(x)  =  fX(x) + 

j=i 


ai jX j  =  ° 


i=l  ,2 ,. 


where  the  matrices  iajj]  and  Jdfj/dXjj  are  sparse. 


The  overdetermined  case,  m  >  n,  is  handled  by  taking  the  solution  to  be  that 

m 


which  minimizes  the  sum  of  squares  s 


■I 


) ]  .  This  makes  the  routine  suit- 


i=1 


able  for  the  nonlinear  data  fitting  problem  and  parameter  variances  and  covariances 
can  be  generated.  Derivatives  are  optional  and  when  not  provided  by  the  user  are 
estimated  using  a  definite  difference  approximation. 


The  algorithm  is  based  on  Fletcher's  version  of  the  Marquardt  method,  see 
R.  Fletcher,  AERE  Report  -  R.6799,  and  is  described  in  J.K,  Reid,  AERE  Report 
R.7293. 


The  user  must  supply  [a^j]  in  a  condensed  form,  an  initial  estimate  of  x,  and 
a  subroutine  to  calculate  f^(x)  and  optionally  df^/dXj. 


Versions : 
Calls: 
Language : 
Origin : 


NS03A;  NS03AD. 

KB1QAS,  MA17A,  MC02AS,  MC09A  and  TD02A. 
FORTRAN,  Date:  October  1972,  Size: 
J.K.  Reid,  Harwell. 


12. 3K;  473  cards. 
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Input  and  Output 


To  print,  out  an  m  by  n  matrix  in  an  easily  read  format.  The  FORTRAN  format 
used  to  print  the  elements  is  fixed.  There  is  no  limit  to  the  size  of  matrix  and 
the  output  will  extend  over  several  numbered  pages  if  necessary. 


Versions :  OAOIA;  0A01AD. 

Language :  FORTRAN,  Date :  April  1963, 
Origin:  E.J.  York*,  Harwell. 


Size :  IK;  45  irds. 


To  print  out  the  contents  of  a  single  dimensioned  array  in  tabular  form. 

The  array  is  printed  as  a  series  of  subtables,  column  length  given  by  the 
user,  of  numbers  printed  in  an  E  FORMAT  to  a  number  of  significant  figures  specified 
by  the  user.  Each  member  of  the  array  will  be  identified  by  an  integer  printed 
alongside  its  entry  in  the  table. 


Versions :  0A02A;  OAD2AD. 

Language :  FORTRAN,  Date :  June  1968, 
Origin :  M. J.  Hopper,  Harwell. 


Size;  1.1K;  63  cards. 


To  print  out  in  tabular  form  the  contents  of  two  single  dimensioned  arrays. 

The  FORMAT  types  (F,  E  or  D)  and  the  number  of  significant  figures  to  be 
printed  must  be  separately  specified  for  both  arrays. 

The  arrays  are  tabulated  as  a  series  of  subtables,  column  length  specified 
by  the  user,  with  corresponding  elements  from  each  array  forming  columns  of  pairs 
of  numbers.  As  many  columns  as  possible  are  fitted  across  the  page  and  as  many 
subtables  are  produced  as  are  required  to  exhaust  the  arrays. 

It  is  useful  for  tabulating  a  function  y(x)  and  its  argument. 

Versions :  0A03A ;  0A03AD . 

Calls:  MX02A. 


Language :  FORTRAN,  Date :  Dec.  1970, 
Origin:  M.J.  Hopper,  Harwell. 


Size :  2.9K;  208  cards. 


To  draw  on  the  graph  plotter  a  smooth,  tangentially  continuous  curve  through  a 


given  sequence  of  points  x^y^  i=1,2,...,n  where  optionally,  the  directions  at  each 
point  may  be  specified.  Cusps  and  closed  curves  can  be  drawn  if  required. 

The  smooth  curve  is  generated  as  a  sequence  of  straight  line  segments.  The 
method  is  described  in  S.  Marlow  and  M.J.D.  Powell,  AERE  Report  -  R.7092  and  is 
based  on  a  method  due  to  D.J.  MeConalogue. 

The  user  is  expected  to  have  initialized  graph  plotting  through  the  GHOST 
system  and  set  the  scaling  before  calling  the  subroutine. 


Versions : 
Calls : 
Language ; 
Origin : 


OB  HA. 

NBOIA  and  SHVECS  (a  GHOST  routine). 
FORTRAN,  Date;  March  1972,  Size: 
S.  Marlow  and  M.J.D.  Powell,  Harwell. 


5.  IK; 


408  cards. 


0B12A 


To  draw  on  the  graph  plotter  a  cubic  spline  defined  by  its  knots,  function 
values  and  first  derivative  values  at  the  knots. 


The  spline  is  approximated  by  a  sequence  of  straight  line  segments  to  within 
an  accuracy  under  the  control  of  the  user.  The  method  is  described  in  S.  Marlow 
and  M.J.D.  Powell,  AERE  Report  R.7470. 

The  user  is  expected  to  have  initialized  graph  plotting  through  the  GHOST 
system  and  set  the  scaling  before  calling  the  routine. 


Remark; 

Versions : 
Calls : 
Language : 
Origin; 


The  routine  is  dependent  on  the  local  graph  plotting  system  only  through 
one  routine  and  that  is  one  for  drawing  a  sequence  of  line  segments. 
0B12A. 

SHVECS  (a  GHOST  routine). 

FORTRAN,  Date :  October  1972,  Size ;  2.9K;  125  cards. 

S.  Marlow  and  M.J.D.  Powell,  Harwell. 


0C01A 

To  produce  a  graph  of  several  dependent  variables  against  an  independent  vari- 
able  on  the  line  printer  or  teletype. 

The  dependent  variables  are  identified  on  the  graph  by  symbolic  names  chosen 
by  the  user.  The  graph  is  orientated  so  that  the  independent  variable  axis  runs 
down  the  page  thus  allowing  graphs  of  arbitrary  length  to  be  produced.  A  graph 
may  be  put  out  in  sections  and  different  graphs  can  be  put  on  different  output 
streams.  The  user  must  supply  upper  and  lower  bounds  on  the  dependent  variables 
for  scaling  purposes. 


Versions;  0C01A;  no  double  precision  version. 

Language :  FORTRAN,  Date :  Dec.  1969,  Size;  3.7K;  170  cards. 

Origin:  A.R.  Curtis,  Harwell. 

0D01A 

To  allow  the  FORTRAN  programmer  to  read  or  write  paper  tape.  This  is  a  two 
stage  process;  in  stage  one  of  reading  a  paper  tape  the  tape  is  first  read  by  one 
of  the  360' s  peripheral  computers  and  the  data  is  stored  on  disk;  then  stage  two 
the  user  calls  0D01A  in  a  program  run  on  the  360  to  read  the  data  from  disk.  To 
write  a  paper  tape  the  process  is  reversed.  See,  Chapter  13.5  in  the  Harwell 
'Computer  User's  Manual'. 


Language :  FORTRAN,  Date :  1967,  Size :  7.4K;  384  cards. 

Origin:  D.  McVicar,  Harwell. 
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0002A 


To  allow  the  FORTRAN  progranmer  to  read  or  write  Dectape.  This  is  a  two  stage 
process  similar  to  that  for  reading  and  writing  paper  tape,  see  ODOIA. 

Language :  FORTRAN,  Date :  1967,  Size:  9.3K;  617  cards. 

Origin:  R.  Garside*,  Harwell. 

0E01A 

Provides  simple  editing  facilities  for  the  modification  of  source  language 
and  data  which  may  be  stored  on  any  sequentially  organised  backing  store  or 
presented  as  a  card  deck. 

The  editing  is  performed  according  to  commands  given  by  the  user  on  control 
cards.  There  are  facilities  for  replacing,  inserting  and  deleting  statements,  and 
changing  specified  fields  in  a  statement.  The  new  version  of  the  source  statements 
can  optionally  be  re-sequence  numbered.  The  new  version,  along  with  changes  made, 
is  listed. 

The  user  controls  the  destination  of  the  output  from  the  routine  by  supplying 
an  appropriate  IX)  card  and  by  specifiing  the  stream  number. 


Calls:  IOTRAN  and  OLTRAN  (two  user  routines). 

Language :  FORTRAN,  Date :  July  1971,  Size :  5.  IK;  251  cards. 

Origin :  A.R.  Curtis,  Harwell. 

ONOIB 


To  provide  a  'free  format'  input  facility 


for  the  FORTRAN  user. 


The  subroutine  is  designed  to  read  data  items  as  opposed  to  records  (i.e. 
cards)  although  it  does  provide  facilities  for  monitoring  record  type  input. 


It  offers  facilities  to,  read  numeric  data,  identify  keywords  held  in  a 
dictionary,  build  and  add  to  the  dictionary,  recognize  bad  input  data  and  allow 
the  user  to  take  corrective  action,  recognise  and  identify  special  characters, 
list  each  input  record  as  it  is  read  in,  provide  and  allov  the  user  to  reset  a 
pointer  within  the  record  to  the  current  item,  read  BCD  information. 


FORTRAN,  Date:  1967, 
M.  Ruffle*,  Harwell. 


Size  :  10. 9K;  558  cards. 


Given  a  data  card  containing  numeric  data  items  constructs  the  FORTRAN  format 
required  to  read  the  numbers  from  the  card. 

The  format  is  returned  in  an  array  for  the  user  to  use  in  a  READ  statement. 
The  subroutine  was  designed  for  use  with  the  Harwell  teletype  system  when  it  is 
not  always  convenient  to  type  in  data  in  a  fixed  format. 


Calls:  ZA03AS. 

Language :  FORTRAN,  Date :  1968,  Size :  1.6K;  110  cards. 

Origin:  R.C.F.  McLatchie,  Harwell. 
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p 


Polynomials  and  Rational  Functions 


PAOIA 

To  find  all  the  real  and  complex  roots  of  a  polynomial  with  real  coefficients, 
i.e.  calculate  the  zeros  of 

a0+a1x+a2x2+..  .+anxn  =  0 

The  method  is  that  of  D.E.  Muller,  MTAC,  1956. 

Versions :  PAOIA;  PAOIAD. 

Language :  FORTRAN,  Date :  March  1963,  Size :  2.5K;  155  cards. 

Origin :  SHARE  program  C2*  MLF  HPRS,  translated  for  Harwell  by  D.  McVicar. 

PA02A 

To  find  all  the  real  roots  of  a  polynomial  with  real  coefficients  that  fall 
within  a  given  interval  a  ^  x  ^  b,  i.e.  calculate  the  zeros  of 

aQ+a1x+a0x2+...+ar(xn  =  0  a  «  x  ^  b  n  49 

The  subroutine  will  also  return  the  number  of  real  roots  above,  below  and 
within  the  interval  and  there  is  an  option  to  request  all  the  real  roots. 

Sturm's  sequence  polynomials  are  generated  to  bracket  the  roots  then  a 
combination  of  Newton  Raphson  and  bisection  is  used  to  refine  each  root. 

Versions;  PA02A.  PAQ2AD;  PA02B;  PA02BD;  the  B  versions  provide  an  estimate 
of  error  growth  induced  by  using  a  recurrence  relation  to  generate 
the  Sturm' s  sequence . 

Language :  FORTRAN,  Date:  Sept.  1965,  Size :  3.9K;  234  cards. 

Origin:  M.J.  Hopper,  Harwell. 

PA03A 

To  find  all  the  roots  of  a  cubic  polynomial .  i.e.  calculate  the  zeros  of 

aQ+a^x+a.jX^ajX3  =  0 

A  non-iterative  method  is  used. 

Versions:  PA03A ;  PA03AD. 

Language :  FORTRAN,  Date :  Aug.  1963,  Size:  1.5K;  49  cards. 

Origin :  H.  Situnonds*,  Harwell. 

PA04A 

To  find  the  number  of  real  roots  above,  below  and  within  a  specified  interval 
a  £  x  <  b. 

Sturm's  sequence  polynomials  are  used.  The  degree  of  the  polynomial  must  be 
less  than  21. 

Versions :  PA04A ;  PA04AD . 

Language :  FORTRAN,  Date :  Aug.  1963,  Size:  3.  IK;  63  cards. 

Origin:  M.  Lancefield*,  Harwell. 
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PA05A 


PB01AS 


PBQ2AS 


PCOIA 


To  find  all  the  roots  of  a  quartic  polynomial,  i.e.  the  zeros  of 

2  3  4  „ 

a^+a  ^  x+a  +a^x  =  0 


The  method  is  non-iterative,  see,  Maths,  of  Computation,  279-281,  July  1960. 


Remark :  An  iterative  method  is  likely  to  produce  more  accurate  results. 


Versions : 
Calls: 
Language: 
Origin : 


try  PA02B . 

PA05A;  PA05AD. 

PA03A. 

FORTRAN,  Date :  Jan.  1963, 
S.  Marlow,  Harwell. 


Size:  1.8K;  96  cards. 


To  compute  the  value  of  a  polynomial 

P(x)  =  a0+a1x+a2x2+...+anxr' 

The  value  is  calculated  using  the  nested  form 

P(x)  =  (....( (a^x+a^^x+.^+a^x+aQ 

accumulating  intermediate  results  double  length. 

Versions :  PB01AS;  PB01AD. 

Language :  360/BAL,  Date:  Aug.  1967,  Size :  . IK ;  34  cards. 

Origin:  R.C.F.  McLatchie,  Harwell. 


To  compute  the  complex  value  of  the  real  polynomial 

P(z)  =  an+a  z+a  z2+,..+a  zn 
u  1  i  n 


for  complex  argument  z. 

The  method  is  synthetic  division  by  a  quadratic  factor,  see,  R.  Butler  and 
E.  Kerr,  'Introduction  to  Numerical  Methods',  Pitman. 

P(z)  and  z  must  be  FORTRAN  COMPLEX  variables;  the  calculation  is  carried 
out  in  real  arithmetic  accumulating  intermediate  results  double  length. 

Versions :  PB02AS ;  PB02AD. 

Language :  360/BAL,  Date:  July  1967,  Size :  .3K;  124  cards. 

Origin :  M.J.  Hopper,  Harwell. 


To  calculate  the  coefficients  of  a  polynomial  given  all  its  roots,  the  roots 
must  be  real,  i.e.  given  real  numbers  calculate  a0,a(,...,an  with 

an  =  1  such  that 
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a0+atx+a2x2+...+anxn  ■  (x-51)(x-£2)....(x-£h) 

Versions :  PCOIA;  PCOIAD. 

Language :  FORTRAN,  Date;  Aug.  (967,  Size:  .5X;  45  cards. 
Origin ;  W.E.  Hart*,  Harwell. 


Given  n+1  points  x.^  y^  i=0, t ,2,.. . ,n  calculates  the  coefficients  of  the 
olynomial  that  passes  through  all  n+ 1  points .  i.e.  the  interpolation  polynomial 

.  2  n 

P(x)  =  a  +a.x+a„x  +...+a  x 
I  2  n 


such  that 


P(xA)  =  yA  i=0,1,2,...,n 


The  coefficients  of  the  Lesbegue  polynomials  L^x),  i.e.  such  that  LjJx^)  =  0 

i  ^  K  and  L^tx-)  =  I,  are  calculated  using  PC01AS  and  PBOIAS,  the  coefficients 

ar»»a.  »•••»&  are  then  obtained  from 
O’  1  n 


^  Wx) 


PDOIAS 


Versions :  PC02A ;  PC02AD. 

Calls;  PBOIAS  and  PCOIA. 

Language ;  FORTRAN,  Date ;  May  1964,  Size ;  .7K;  23  cards. 

Origin ;  L.  Morgan*,  Harwell. 

Given  a  real  root  of  a  polynomial  divides  out  the  root  to  obtain  the 
coefficients  of  the  reduced  polynomial,  i.e.  given  a  root  £  and  polynomial 
a0+a(x+. . *+anxn  calculates  bj  j=0, 1 ,. . . ,n-1  such  that 

aQ+a^+.^+a^x"  ■  { <-ij)(b0+b1x+...+bn_1xn-,)+r 


where  .«  assumed  to  be  zero. 

Synthetic  division  of  a  polynomial  by  a  linear  factor  is  used  accunxilating 
intermediate  results  double  length.  The  root  is  divided  out  from  the  end  least 
likely  to  produce  error  grwth  in  the  b^s.  The  user  has  an  option  to  force  the 
division  to  be  carried  out  from  either  end. 

Versions;  PDOIAS;  PDOIAD. 

Language ;  560/feAL,  Date;  May  1967,  Size;  ,3C;  80  cards. 

Origin;  Harwell. 
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PD02A 


PD03A 


PEOIA 


To  find  the  first  m  terms  of  the  Taylor  series  expansion  of  functions  of  a 
Kiven  polynomial  (or  polynomials). 

Let  the  polynomials  be  A(x)  =  aQ+a ;x+ . . ,+anxn  and  B(x)  =  bQ+b)x+. . ,+b^x^  and 
suppose  the  Taylor  series  to  be  T(x)  =  tQ+t)x+. . .+tmxm+. . .  the  expansions  are 
obtained  by  considering  identities  between  A(x),  B(x)  and  T(x).  The  functions 
covered  and  identities  used  are 

A(x)T(x)  =  1 

T* (x)A(x)-A' (x) ,  T(0)=loge(aQ) 

T'(x)=A'(x)T(x),  T(0)=exp(a0) 

T  ' (x)^A' (x)T (x),  T  (0)=sin(a„) 

T*'  (x)=A'  (x)Tg(x) ,  T*(0)=cos(a^) 


PD02A : 

T(x)  =l/A(x) 

f 

PD02B : 

T(x)  =loge[A(x)]; 

PD02C : 

T(x)  =exp[A(x)]  ; 

PD02D : 

(Tg(  x)=sin[A(  x) 
(Tc(x)=cos[A(x) 

t 

J 

PD02E : 

T(x)  =[A( x) ] r 

5 

PD02F : 

T(x)  =A(x)B(x) 

i 

PD02G : 

T(x)  =A(x)/B(x)  ; 

A(x)T' (x)=nV  (x)T(x)  ,  T(0 ) 
T(x)sA(x)B(x) 

T(x)B(x)=A(x) 


O' 

aor 


Versions : 

PD02A ;  PD02AD ;  PD02B ; 

PD02BD ; 

PD02C ; 

PD02CD ; 

PD02D ; 

PD02E ;  PD02ED ;  PD02F ; 

PD02FD; 

PD02G ; 

PD02GD. 

Calls: 

MC02BS. 

Language : 

FORTRAN ,  Date :  Dec . 

1970, 

Size : 

,7K ;  43 

cards. 

Origin: 

M.J.  Hopper,  Harwell. 

Given 

a  polynomial  in  x,  i.e. 

P(x)  =  aQ+a  j x+ 

n 

•  *.+a  x 
n 

n  < 

50 

calculates 

the  coefficients  b.  i=0. 

1  f  •  •  •  ,n  ^ 

of  the  polynomial 

under  a 

PD02DD; 


variable  z=ux+v,  i.e.  such  that 


a,.+a,x+,,,+a  xn  a  b_+b, (ux+v)+. . ,+b  (ux+v)n 
0  1  n  o  1  n 


Versions :  PD03A;  PD03AD. 

Calls:  PB01AS. 

Language :  FORTRAN,  Date :  June  1966,  Size :  .8K;  29  cards. 

Origin:  A.R,  Curtis,  Harwell. 


Calculates  the  coefficients  of  a  polynomial  given  the  coefficients  of  its 
expansion  in  terms  of  Chebyshev  polynomials,  i.e.  given  b^  j=0,1,...,n  find 
Uj  j=0,1,...,n  such  that 


a^+a  j x+ . 


.  ,+a  x 
n 


“  b0T0(x)+b1T)(x)+...+bnTn(x) 


n  ?  40 


If  the  polynomial  is  known  to  be  an  odd  or  even  function  the  calculation  can  be 
simplified  and  the  routine  can  take  advantage  of  this. 


PE03A 


PE04A 


PE05AD 


Versions;  PEOtA;  PEOIAD. 

Calls;  MC03AS. 

Language ;  FORTRAN,  Date :  June  1963,  Size:  3K;  65  cards. 

Origin;  S.  Marlow,  Harwell. 

Given  the  coefficients  of  a  polynomial  calculates  the  coefficients  of  its 
expansion  in  terms  of  Chebyshev  polynomials,  i.e.  given  a^  j=0,!,...,n  find 
bj  j=0,l,...,n  such  that 

b0T0(x)+b)T)(x)+...+bnTn(x)  =  a0+a?x+.. ,+anxn  n  <  40 
Versions:  PE03A;  PE03AD. 

Language ;  FORTRAN,  Date :  Sept.  1963,  Size;  .8K;  34  cards. 

Origin:  C.  Brittian*,  Harwell. 

Given  a  function  f(x)  in  the  range  u  <  x  <  v  finds  a  rational  approximation  of 
the  form 


anTn(z)+a  T  (z)+. . ,+a  T  (z) 
n  /  v  _  u  u  II  mm 

m,n'  ’  ~  T0(z)+b1f“(z)+...+bnTn(z) 

where  T  (z)  is  the  Chebyshev  polynomial  of  order  K  and  -1  «  z  =  -x~u~y  <  j  and 
K.  v-u 

0  «  m  <  IO,  O  <  n  «  10. 

The  approximation  found  is  such  that  Rm  n(*K)  =  ff^z^v-uj+v+u)]  K=0,l,...,m+n 

where  the  are  the  zeros  of  T  ,( z). 
k  nn-n+ 1 

The  routine  returns  a  guide  to  how  close  the  approximation  is  to  the  'best 
approximation'  in  the  minimax  sense.  Also  returned  are  the  coefficients  of  the 
equivalent  form 

a  +a  x+ . . .  a  xn 
o  1 _ n 

(30+(3,x+...|3nxn 

The  user  nust  provide  a  function  subroutine  to  evaluate  f(x). 

Versions:  PE04A;  PE04AD. 

Calls :  MA21A  and  FUICT  (a  user  routine). 

Language :  FORTRAN,  Date;  Aug.  1963,  Size;  7.7K;  300  cards. 

Origin;  A.T.  Sinden*,  Harwell. 


K  = 

in -n 


Given  a  smooth  function  f(x)  in  the  range  u  <  x  <  v  finds  a  weighted  rational 
approximation  of  the  form 


R  n(x> 
ro.n 


a.+a.x-f ...+a  xm 
u  i  m 

b~+b,x+...+b  xn 
o  1  n 
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which  is  'best'  in  the  sense  that 


PE06A 


PE07A 


f(x) 


max 

u  <  x  <  v 


Rm  n<X> 

m,n 


W(x) 


is  minimized,  W(x)  is  a  positive  weight  function.  The  cases  n=0  or  m=0  are  handled 
but  there  is  a  restriction  0  <  m  <  10,  0  ^  n  <  10  and  im-n  <  15. 

The  method  is  iterative  and  uses  the  two  stage  Maehly  algorithm,  see, 

H.J.  Maehly,  J.  Ass.  Comp.  Mach.,  1963,  with  third  order  inverse  iteration  to 
solve  the  eigenvalue  problem,  see,  A.R.  Curtis  and  Osborne,  Computer  Journal, 

Vol.  9,  no.  3,  1966. 

The  user  must  supply  code  to  evaluate  f(x)  and  W(x). 

Versions :  PE05AD;  there  is  no  single  precision  version. 

Calls:  MAOIBD,  MC01AD,  MC03AD,  PB01AD,  PD03M)  and  ZE01AD. 

Language :  FORTRAN,  Date:  1967,  Size:  32. IK;  630  cards. 

Origin :  A.R.  Curtis,  Harwell. 


Given  a  polynomial  C(x)  of  degree  K  finds  the  coefficients  a j  j=0,1,...,m  and 


bj  j=1 ,2,... ,n  of  the  Pade  approximation 


Pm  „<x)  = 
m,n 


a„+a,x+...+a  x 
0  1 _ m_ 

1+b,x+...+b  xn 
I  n 


tm-n  ^  K  m,n  €  20 


such  that  the  first  irw-n+1  coefficients  of  the  Taylor  series  expansion  of  Pm  r(x) 
are  the  same  as  the  first  m+n+1  coefficients  of  c(x). 


The  m  zeros,  the  n  poles  and  residues  of  the  approximation  are  also  returned. 

Versions :  PE06A ;  PE06AD . 

Calls:  MA21A  and  PA01A. 

Language :  FORTRAN,  Date :  Jan.  1964,  Size :  3.5K.  86  cards. 

Origin:  L,  Morgan*,  Harwell. 


To  compute  the  value  of  a  polynomial  P(x)  of  degree  n  which  is  expressed  as  a 
linear  combination  of  orthogonal  polynomials  Qk(x)  K=0, 1,,..,n,  i.e. 

P(x)  =  c0Q0(x)+c)Q](x)+...+cnQn(x) 
where  the  polynomials  Q^(x)  are  defined  by  the  recurrence  relation 

Qq(x)  =1,  Qt(x)  =  x-aQ 
Qk+,(x)  =  (x-a^X^U)  -  3kQk_1  ( x)  K=1 ,2. . . . 

See  F.J.  Smith,  'Maths,  of  Computation'  ,  Jan.  1965. 
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f 


Reirerk:  Can  be  used  to  compute  values  of  polynomial  fits  obtained  by  VCOIA. 

Versions ;  PE07A;  PE07AD. 

Language:  FORTRAN,  Date:  July  1964,  Size:  .5K;  20  cards. 

Origin:  S.  Northcliffe*,  Harwell. 

PE06A 

To  obtain  the  coefficients  a^  j=0,1 ,... ,n  of  a  polynomial  P(x)  of  degree  n 
which  is  expressed  as  a  linear  combination  of  orthogonal  polynomials  Q^(x) 
K=0,1,...,n,  i.e. 

a0+atx+...+anxn  a  cqQ0(x)+c1Q2(x)+.  .  .-i-c^U) 
where  the  polynomials  Q^( x)  are  defined  by  the  recurrence  relation 


Q0(x)  =  1 ,  Qj(x)  =  x-aQ 

QK+,(x)  =  ^x-ak^^x^"^KQK-1^x^  K=1 ,2, . . . 

Remark:  Can  be  used  to  obtain  the  coefficients  of  polynomial  fits  produced  by 

VCOIA. 

Versions :  PE08A;  PE08AD. 

Language:  FORTRAN,  Date:  April  1964,  Size :  1.8K;  45  cards. 

Origin:  S.  Northcliffe*,  Harwell. 

PE  11A 

Given  m  values  of  a  function  f(x)  calculates  the  nth  degree  minimax  polynomial 
approximation  P(x),  m  >  n,  2(n<  25,  such  that 

max  |  f(\)  -  PCXy)  | 

1  <  K  <  m  *  K 


is  minimized. 

See  P.C.  Curtiss  and  W.L.  Frank,  Journal,  A.C.M. ,  1959. 

Versions :  PE11A;  PE11AD. 

Language:  FORTRAN,  Date :  Nov,  1966,  Size :  5.7K;  338  cards. 

Origin:  S.  Marlow,  Harwell. 


Numerical  Integration 


To  evaluate  the 


Integral 


LI 

/. 


i.e.  Trapezoidal  rule,  Simpson's 
formulae. 


f(x)dx  using  one 
rule,  the  %  rule 


of  five  Newton-Cotes  formulae, 
and  the  five  and  six  point 


The  user  must  supply  values 
in  a  <  x<  b,  hence  the  interval 


of  the  integrand  f(x)  tabulated  at  equal  intervals 
size  must  be  chosen  by  the  user. 


Double  length  accumulation  of  intermediate  results  is  carried  out  to  minimize 
rounding  errors. 
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Remark : 


One  of  the  adaptive  quadrature  routines,  QA02A,  QA04A  or  QA05A  may  give 
better  results  than  QAOIAS. 


Versions :  QAOIAS;  QAOIAD. 

Language :  360/BAL,  Date :  Aug,  1967,  Size:  ,5K;  185  cards. 

Origin :  M.J.  Hopper,  Harwell. 

QAQ2A  b 

To  evaluate  the  integral  j  f(x)dx  to  a  specified  absolute  accuracy. 

J  a 

The  subroutine  uses  a  variable  step  Simpson’s  rule  using  at  each  step  an 
integration  step  based  on  4th  differences  which  is  chosen  small  enough  to  achieve 
the  required  accuracy. 


The  user  must  specify  a  minimum  integration  step-size  and  provide  a  subroutine 
to  evaluate  the  integrand  f ( x) . 


Rema  rk : 

Versions : 
Calls: 
Language : 
Origin: 


Unless  only  limited  accuracy  is  required,  or  core  store  is  limited, 
either  QA04A  or  QA05A  may  be  better,  especially  on  'difficult  integrands'. 
QA02A;  QA02AD.  Both  use  double  precision  arithmetic. 

CALCIN  (a  user  routine). 

FORTRAN,  Date :  March  1963,  Size :  3.3C;  175  cards. 

M.J.D.  Powell  and  A.R.  Curtis,  Harwell. 


QA03A 


To  tabulate  an  integral  function  of  the  form 


g(x)  =  g(a)  +  j  f(t)dt 


at  points  x=a,  a+h,  a+2h,. . . ,a+mh  to  a  specified  accuracy. 

The  subroutine  uses  a  variable  step  Simpson's  rule  using  at  each  step  an 
integration  step,  based  on  4th  differences,  which  is  chosen  small  enough  to  achieve 
the  required  accuracy. 

The  user  must  specify  a  minimum  integration  step-size  and  provide  a  subroutine 
to  evaluate  the  integrand  f(x). 

Versions :  QA03A ;  QA03AD . 

Calls :  CALCIN  (a  user  routine). 

Language :  FORTRAN,  Date :  March  1963,  Size :  2.6K;  138  cards. 

Origin:  M.J.D.  Powell,  Harwell, 

QA04A 

To  evaluate  the  integral 
accuracy. 

An  adaptive  scheme  is  used  based  on  a  three  point  Gaussian  quadrature,  see 
I.G.A.  Robinson,  'Adaptive  Gaussian  Integration',  Australian  Comp.  Journal,  Vol.  3, 
no.  3.  The  user  must  provide  a  FUNCTION  subprogram  to  calculate  values  of  the 
integrand  f(x). 


f 


f(x)dx  to  a  specified  relative  or  absolute 
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Remark: 
Versions : 
Language : 
Origin: 


Shorter  than  Q\05A  but  less  efficient. 

QA04A;  QA04AD.  Both  use  double  precision  arithmetic. 
FORTRAN,  Date :  May  1972,  Size:  5.7K;  186  cards. 

I.G.A.  Robinson,  Univ.  of  Melbourne,  implement  for  Harwell  by 
A. B.  Smith*. 


QA05A 


To  evaluate  the  integral 
or  absolute. 


r 

I  f(x)dx  to  a  specified  accuracy  which  may  be  relative 
a 


The  subroutine  uses  an  adaptive  scheme  based  on  Romberg  extrapolation  and 
Trapezoidal  rule,  and  is  described  under  the  name  CADRE  in  C.  deBoor,  'CADRE: 
an  algorithm  for  numerical  quadrature'  in  'Mathematical  Software'  Ed.  J.R.  Rice, 
Academic  Press. 


The  user  must  supply  a  subroutine  to  evaluate  f(x)  a  C  x  <  b.  The  subroutine 
returns  error  estimates  and  attempts  to  identify  any  singularities  and  discontinui¬ 
ties  in  f(x). 


Remark : 
Versions : 
Language : 
Origin : 


Powerful  and  efficient,  but  rather  large  in  core  requirement. 

QA05A;  QA05AD.  Both  use  double  precision  arithmetic. 

FORTRAN,  Date:  October  1972,  Size :  26K;  353  cards. 

Subroutine  CADRE,  C.  de  Boor,  Purdue  Univ.;  modified  for  Harwell  by 
A.R.  Curtis. 


QB01A 

To  evaluate  the  multi-dimensioned  integral 

l 

f(x1,x2,...,xn)dx1,dx2,...,dxn  1  <  n  «  6 

where  the  limits  a^  and  b^  can  be  functions  of  x; ,x2>. .. ,xR_]  and  a^  and  bf 
constants.  The  user  must  specify  for  each  dimension  which  type  of  quadrature 
is  to  be  used,  Simpson's  Rule,  Gauss  quadrature  or  a  quadrature  based  on  Chebyshev 
polynomials. 


A  relative  accuracy  can  be  requested  and  a  subroutine  to  compute  the  values 
of  the  limits  and  integrand  must  be  provided. 

Versions :  QB01A ;  QB01AD. 

Calls :  LIMITS  (a  user  routine). 

Language :  FORTRAN,  Date :  March  1963,  Size:  10. 5K;  345  cards. 

Origin :  F.R.  Hopgood*,  Harwell. 

QC02AD 

To  provide  weights  and  zeros  for  Gaussian  type  quadratures  of  integrals  of 


the  form 


The  weights  and  zero#  are  calculated  to  give  exact  results  when  f(x)  is  a  polynomial 
ol'  degree  2k- 1  in  z  =  — ^ —  where  a  is  chosen  by  the  user.  A  range  of  quadratures  may 
be  requested.  The  calculations  are  relatively  expensive  and  the  routine  should  only 
be  used  when  the  quadrature  is  to  be  applied  to  many  integrals. 

Remark:  Use  of  this  routine  is  likely  to  give  better  results  than  Gauss-Laguerre 

for  bounded  f(x). 

Versions:  QC02A1) :  there  i#  no  single  precision  version. 

Calls:  NBOIAD  and  QA05AD . 

Language :  FORTRAN',  Date :  1965,  Size :  5.2K;  116  cards. 

Origin:  A.R.  Curtis,  Harwell. 


To  evaluate  integrals  of  the  form 


f ( t. )  sin  xt  dt  and  /  f(t)  cos  xt  dt 


QMOIA 


to  a  specified  absolute  accuracy. 

Filon's  method  is  used  where  a  quadrature  formula  is  derived  by  approximating 
to  f(x)  by  a  piece-wise  quadratic  interpolant. 

The  user  must  provide  a  subroutine  to  evaluate  the  function  f(x). 

Remark :  The  method  is  to  be  preferred  to  Simpson's  Rule  if  |x(b-a)|  >  10. 

Versions :  QD01A;  QD01AD. 

Calls:  F  (a  user  routine). 

Language :  FORTRAN,  Date :  1968,  Jjize :  2.8K;  103  cards. 

Origin:  W.E.  Hart*,  Harwell. 


Estimate  the  value  of  the  n  dimensional  integral 


•bl  S 


f(x,»x2,...,xn)  <lx),dx2 . dxn  n  =£ 


a,  a2 


to  a  specified  accuracy  by  a  Monte  Carlo  method. 

The  method  is  that  of  'Weighted  Uniform  Sampling'  ,  see,  M..T.D.  Powell  and 
I.  Swann,  AERE  -  TP. 207,  1966. 

The  sampling  method  requires  an  approximation  to  f(x)  which  has  the  properties 


g(x)dx  =1  R  =  region  of  integration 


f(x)  a:  og(x)  a  a  constant. 


The  user  must  provide  a  subroutine  to  compute  values  of  f(x)  and  g(x). 
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Versions : 
Calls: 
Language : 
Origin : 


QMOIA;  CjMOIAD. 

FAOIAS  and  EVAL  (a  user  routine). 
FORTRAN,  Date:  June  1966, 

D.  Green*,  Harwell. 


Size : 


1 ,4K  ;  43  cards. 


S.  Statistics 

Tiftt  ~g"  BB 

SAOIA 

To  evaluate  the  cumulative  chi-squared  probability  function,  i.e.  given  a 

2 

statistic  x  distributed  as  x  with  n  degrees  a  freedom  evaluate  the  probability 
of  x  >  X 

00  n,  t 

Q(X,n)  =  — -  ft2  e  2  dt 

22  T  (|)  X 

to  an  absolute  accuracy,  where  x  5  0  and  n  an  integer  £  1. 

The  approximations  used  are;  a  convergent  series  based  on  the  expansion  for 
the  integral  Q(x,n);  an  asymptotic  series  for  the  complement  probability 

P(x,n)  =  :-Q(x,n);  and  for  very'  large  x  and  n  an  approximation  based  on  a 

-6  -3 

Gaussian  distribution.  Empirical  boundaries  Q(x,n)  <  10  and  Q(x,n)  >  1  -  10  ^ 
are  used  to  define  regions  in  which  the  probability,  within  the  guaranteed 
accuracy,  can  be  set  to  0  or  I  aid  allow  truncated  forms  of  the  series  to  be 
used  giving  savings  in  computer  time. 

Accuracies  :  SAOIA  <  5xlO-5;  SA01AD  <  5xlO_1°. 

Versions :  SAOIA;  SAOIAD. 

Language :  FORTRAN,  Date :  Aug.  1971,  Size :  2.3K;  214  cards. 

Origin :  M.J.  Hopper  and  J.  Hedger,  Harwell. 

SA02A 

To  evaluate  the  one-sided  cumulative  distribution  function  of  Student's  t 
dj  stribution  with  n  degrees  of  freedom,  i.e.  evaluate 

t  _  JUi 

P(n,t)  =  - — r  I  [  1  +  —  |  d6  -oo  €  t  «  oo 

B(^)n*  J  l  n  J 

Z  -oo 

,  -1  t 

A  series  expansion  is  used,  let  a  =  tan  ~T  then  if  n  is  even 

n7 


P(n,t)  =  xfr\  sin  a 


1+'^  cos  cu-. 


1 . 3. 5. . .  ( n-3) 
*+  2.4.6. ..(n-2) 


cos 


and  if  n  is  odd 


a  jc 


P(n,t)  =  sin  a  cos  a+%cos3a+.. 


.4... (n-3)  n-2„  j 

Tsfrrrt?) cos  aJ 
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SA03A 


SV01A 


T. 


TAPIA 


Versions:  SA02A;  no  double  length  version. 

Language :  FORTRAN,  Date:  Dec.  I‘J70,  Size :  ,8K;  29  cards. 

Origin :  D.G.  Papworth,  MRC,  Harwell. 


To  evaluate  the  complement  of  the  cumulative  distribution  function  of  the 
variance  ratio  distribution  with  (n,m)  degrees  of  freedom. 


2  2  „  z 

n  m  f  n+m  ^  ^ 

n,m,F)  =  -  7— ; — r  — s-  df  0<  F  ? 

R(- -1  J  'nf+m'  2 


PI 


B(l>f  F 


Series  expansions  in  sin  a  and  cos  a  are  used  for  the  integral,  where 

a  ,  tan-'M. 

V  in 

Versions :  SA03A ;  no  double  length  version. 

Language :  FORTRAN,  Date :  Dec.  1970,  Size :  1.3K;  57  cards. 

Origin :  D.G.  Papworth,  MRC,  Harwell. 


To  extract  from  a  minimization  of  a  sum  of  squares  by  VA02A  an  approximation 
to  the  variance-covariance  matrix  at  the  minimum. 


Given  that  the  sum  of  squares  of  functions 

m 


F(X|,x2,...,xn)  -  \  fK  (x,,x2,...,xn) 


K=  1 


has  been  minimized  by  VA02A,  calculates  an  approximation  to  the  inverse  matrix  G 
where  G  =  Igyi  is  given  by 


-1 


f '  ^fK(- 

gij  =  L  3xi 


9f„(x)  9fK(x) 

.  — i=1 , 2, . . . ,n ;  j — !,2,...,n 


K=1 


Finite  difference  approximations  are  used  for  the  derivatives. 
Versions:  SVOIA;  SV01AD. 

Language :  FORTRAN,  Date :  Dec.  196-1,  Size :  I.6K;  57  cards. 

Origin  :  M..J.D.  Powell,  Harwell. 


Interpolation  and  Approximation 


To  compute  and  print  out  a  table  of  differences  of  a  function  when  the  function 
vaLues  are  given  at  equal  intervals. 

The  function  values  must  he  integer  and  passed  to  the  routine  in  an  array. 

The  user  specifies  the  highest  order  difference  required  up  to  a  maximum  of  Id. 

Versions:  TA01A;  TA01AD. 

Language :  FORTRAN,  Date :  Feb.  1963,  Size :  2,  IK ;  81  cards. 

Origin  :  M..I.D.  Powell,  Harwell. 


59 


TA02A 


TA03A 


TBOIA 


TBQ2A 


To  evaluate  the  divided  differences  of  a  function  f(x)  tabulated  at  points 
x)  <  <  ...  <  xr  not  necessarily  equally  spaced. 

The  values  of  the  function  and  the  points  must  be  passed  to  the  routine  in 
an  array.  The  user  specifies  the  order  differences  required  and  may  direct  the 
subroutine  to  return  the  difference  table  in  various  compact  forms.  The  table  is 
not  printed  out  by  the  subroutine. 

Versions:  TA02A ;  TA02AD. 

Language :  FORTRAN,  Date :  Feb.  1965,  Size :  1.5K;  63  cards. 

Origin :  D.  Russell,  Atlas  Laboratory,  Chilton,  Berks. 


To  evaluate  the  central  differences  of  a  function  tabulated  at  equal  intervals. 

The  function  values  must  be  passed  to  the  subroutine  in  an  array.  The  user 
specifies  the  order  of  the  highest  order  differences  required  and  may  direct  the 
routine  to  return  the  difference  table  in  various  compact  forms.  No  printing  is 
done. 

Versions :  TA03A;  TA03AD. 

Language :  FORTRAN,  Date:  Feb.  1965,  Size:  1.3K;  55  cards. 

Origin:  D.  Russell,  Atlas  Laboratory,  Chilton,  Berks. 

To  interpolate  the  value  of  an  even  function  f(x),  i.e.  such  that 
f(-x)  =  f(x),  given  n+1  function  values  f.  at  points  x.  i=1 ,2,. . .  ,n+1  not 
necessarily  equally  spaced. 

A  polynomial  P(x)  of  degree  2n  is  constructed  such  that  P(xJ  =  f  and 
P(-xi)  =  f^  i=1 ,2,. . . ,n+1  and  based  on  the  Lagrange  interpolation  formula.  The 
coefficients  of  P(x)  are  not  computed. 

Versions :  TBOIA;  TBOIAD. 

Language :  FORTRAN,  Date:  March  1963,  Size:  .7K;  29  cards. 

Origin :  A.G.  Hearn*,  Harwell. 


To  interpolate  the  value  of  a  function  given  n+1  function  values  f  at  points 
X|  i-1,2 . n+1  not  necessarily  equally  spaced. 

The  interpolation  is  based  on  the  nth  degree  polynomial  which  passes  through 
the  n+1  points  obtained  by  the  La.ngrange  interpolation  formula.  The  coefficients 
of  the  polynomial  are  not  computed. 

Versions :  TB02A;  TB02AD. 

Language :  FORTRAN,  Date :  May  1963,  Size:  .5K;  14  cards. 

Origin:  A.G.  Hearn*,  Harwell. 


60 


TB03A 


Calculates  the  coefficients  of  the  piece-wise  cubic  function  which  interpolates 
n-t-l  given  function  values  f^  at  points  x ^  i=l  ,2, . . .  ,n+ 1. 

The  interpolation  function  derived  will  have  the  following  properties;  it  will 
be  continuous,  have  continuous  first  derivative  and  if  the  f^s  defined  a  quadratic 
polynomial  would  represent  it  exactly.  The  routine  returns  the  coefficients  of  the 
n  cubics  CL(6)  corresponding  to  the  n  intervals  to  x^  in  the  transformed  vari- 

x  -  x. 

able  0  =  -  ,  i.e. 

i+ 1  l 

C^(0)  =  afl+a  |0+a202+a^63  0  <  0?  1 

Versions :  TB03A;  TB03AD. 

Language :  FORTRAN,  Date :  July  1964,  Size :  1.6K;  46  cards. 

Origin :  D.  Miller*,  Harwell. 

TBQ4A 

Given  function  vaiues  fj,f2,...,fn  at  points  x^  <  <  ...  <  x^,  not  necessar¬ 

ily  equally  spaced,  finds  a  cubic  spline  S(x)  that  interpolates  the  n  function  values, 
i.e.  S(x^)  =  f^  i=l,2,...,n  where  S(x)  has  knots  at  the  points  x^  i=l,2,...,n. 

The  3rd  derivative  at  the  points  x2  and  x^  ]  is  forced  to  be  continuous. 

The  spline  is  defined  on  return  by  the  knots  x^,  its  values  at  the  knots  f. 
and  its  first  derivative  values  at  the  knots. 

Versions ;  TB04A;  TB04AD. 

Language :  FORTRAN,  Date :  Feb.  1970,  Size :  1.6K;  56  cards. 

Origin :  J.K.  Reid,  Harwell. 

TB05A 

Given  function  values  r  i=1,2,...,n  at  points  x(  <  x2  <  ...  <  x^,  not  neces¬ 
sarily  equally  spaced,  finds  a  periodic  cubic  spline  S(x)  that  interpolates  the  n 
function  values,  i.e. 


S(x.)=f.  i=1 ,2,. . .  ,n  f=f, 

where  S(x)  has  knots  x^  i=1,2,...,n. 

The  spline  is  defined  on  return  by  the  knots  x^,  its  values  at  the  knots  and 
its  first  derivative  values  at  the  knots. 

Versions :  TB05A;  TB05AD. 

Language :  FORTRAN,  Date :  July  1970,  Size :  1.5K;  59  cards. 

Origin :  J.K.  Reid,  Harwell. 


TD01A 


To  estimate  first  or  second  derivatives  given  a  table  of  function  values  and 
finite  qifferences.  The  two  formulae 


hfo  =  (ti  6o  -  1  4  6o  + 


JL  u 

30  ^ 


..)  f 


h2f"  =  (62  -  64  +  ■—  66  -  ...)  f 

o  o  1 2  o  90  o  o 


are  used  and  the  user  specifies  the  highest  order  of  differences  which  can  be  used 
ana  the  required  accuracy.  The  routine  will  return  a  condition  flag  indicating 
whether  the  number  of  differences  supplied  was  sufficient  to  achieve  the  accuracy. 
The  routine  does  not  use  special  formulae  at  the  ends  of  the  range  and  the  user  is 
expected  to  extend  the  table  so  that  there  are  a  sufficient  number  of  differences 
for  the  end  values. 

Versions :  TOOIA;  TOOIAD. 

Language :  FORTRAN,  Date :  1965,  Size:  3K;  136  cards. 

Origin :  P.  Hallowell,  Atlas  Laboratory,  Chilton,  Berks. 

TD02A 

Given  functions  f^fx^ ,x2,.. . ,x^,t)  i=1,2,...,m  evaluates  an  approximation  to 
the  Jacobian  matrix  J  =  idf^/dx^]  using  finite  differences.  The  routine  is  intended 
for  the  case  when  J  is  sparse  or  band  structured  and  has  additional  entries  which 
given  the  functions  r  construct  the  sparsity  pattern  for  J. 

Method  references:  A.R.  Curtis,  M.J.D.  Powell  and  J.K.  Reid,  A.E.R.E.  Report 
TP. 476  and  A.R.  Curtis  and  J.K.  Reid,  A.E.R.E.  Report  TP. 477. 

Derivatives  are  estimated  by 


3fj/dXj  =  2^  j  ^i^xi  ’  *  *  *  ’x  j+^j  '  *  ’  •  ,xn»t)  -  ^i ^ x  1  ’  ’  ‘ j~^*j  ’ *  *  *  ,xn’^^ 


where  the  steplengths  Ik  are  automatically  chosen  by  the  routine  within  bounds 
specified  by  the  user. 

Versions :  TD02A ;  TD02AD . 

Language :  FORTRAN,  Date :  February  1972,  Size :  4.2K;  172  cards. 

Origin :  J.K.  Reid,  Harwell. 

TG01A 

To  compute  the  value  of  a  cubic  spline  when  the  spline  is  defined  over  a  given 
range  a  to  b  in  the  standard  format. 

The  value  outside  the  range  is  defined  to  be  the  value  at  the  nearest  limit 
point  a  or  b. 


Versions :  TCOIA;  TGOtAD. 

Language :  FORTRAN,  Date:  Nov.  1966,  Size:  IK;  43  cards. 
Origin :  M.J.D.  Powell,  Harwell. 
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TC01B 


To  compute  the  value  of  a  cubic  spline  given  in  terms  of  its  knot  points  and 
its  values  and  first  derivative  values  at  the  knots. 

The  spline  value  is  defined  to  be  zero  outside  the  range.  A  facility  is 
provided  for  reducing  the  search  time  for  the  knot  interval  containing  the  point 
at  which  the  spline  value  is  required;  this  makes  tabulation  of  a  spline  economical 

Versions :  TG01B;  TG01BD. 

Language :  FORTRAN,  Date :  1966,  Size ;  IK;  83  cards. 

Origin :  M.J.  Hopper,  Harwell. 

TS01A 

Finds  a  cubic  spline  approximation  to  a  given  smooth  function  f(x)  within  a 
prescribed  accuracy  e,  i.e.  finds  a  cubic  spline  S(x)  such  that 

|s(x)  -  f(x)  |  <  e  a  ?  x  <  b 

The  method  is  given  in  M.J.D.  Powell,  AERE  -  R.7308. 

The  user  must  provide  a  subroutine  to  evaluate  f(x).  The  spline  is  returned 
in  terms  of  the  knots,  the  function  values  and  first  derivative  values  at  the  knots. 

Remark :  TG01B  may  be  used  to  obtain  values  of  the  spline. 

Versions :  TS01A;  TS01AD. 

Language :  FORTRAN,  Date:  Dec.  1972,  Size :  4.8K;  278  cards. 

Origin :  M.J.D.  Powell,  Harwell. 


V.  Minimization  and  Nonlinear  Data  Fitting 

w  a aaaaa  ■ —  aaa  .  :  —a  :asagsaeg 

VA02A 

To  minimize  a  sum  of  squares  of  m  functions  of  n  variables,  i.e.  find 
x  =  xt,x2,...,xn  to  minimise 


F(x) 


m  >  n 


Derivative  values  arc  not  required. 

The  method  is  described  in  M.J.D.  Powell,  Computer  Journal,  Vol.  7,  No.  4, 

1965. 

A  common  application  is  that  of  fitting  a  general  function  G(t,x)  of  n  vari¬ 
ables  x  =  x]fx2,...,xn  to  discrete  data  t^  y^  i=1,2,...m,  in  the  least  squares 
sense. 

An  initial  estimate  of  the  solution  and  the  accuracy  required  in  the  variables 
must  be  provided.  The  length  of  step  taken  at  each  iteration  can  be  restricted. 


t 
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Rema rk  :  Superseded  by  VA05A. 

Calls  :  VDOIA  and  CALFUN  (a  user  routine). 

Versions:  VA02A ;  VA02AD . 

language:  FORTRAN,  Date :  1964,  Size 

Origin:  M.J.D.  Powell,  Harwell. 


Size :  5.9K;  322  cards. 


Reduces  the  problem  of  finding  the  minimum  of  a  fund  ion  of  n  variables  to 
that  of  finding  a  minimum  of  a  function  of  one  variable  many  times,  i.e.  find  the 
minimum  of  F(Xj,x  ,...,xn)  given  that  the  user  can  always  supply  the  minimum  of 

g(X)  =  F(x1+Xd1,x.)+Ad2,...,xn+Xdn) 

for  any  values  of  x^  and  d^  i=l,2,...,n  the  subroutine  provides. 

The  method  used  is  the  same  as  that  used  by  VA04A ,  except  that  for  VA03A  the 
user  has  to  calculate  X.  Thus  better  accuracy  and  faster  computation  times  can  be 
obtained. 

The  user  must  give  an  initial  estimate  of  the  minimum  position  and  specify  the 
accuracy  required  in  the  final  solution.  A  subroutine  is  required  to  calculate  the 
minimum  of  g(X). 

Versions :  VA03A;  VA03AD. 

Call s :  MINLIN  (a  user  routine). 

Language :  FORTRAN,  Date :  July  1963,  Size:  1.2K;  69  cards. 

Origin :  M.J.D.  Powell,  Harwell. 


To  find  the  minimum  of  a  general  function  of  n  variables,  i.e. 

F(xt  ,x  ,...  »xn).  Values  of  the  derivatives  are  not  required. 

A  variation  of  the  simple  method  of  changing  one  variable  at  a  time  is  used. 
The  method  Is  such  that  when  applied  to  a  quadratic  form,  it  causes  conjugate 
directions  of  search  to  be  chosen,  so  when  applied  to  a  general  function  the  ulti¬ 
mate  rate  of  convergence  is  fast,  see,  M.J.D.  Powell,  Computer  Journal,  Vol.  7, 

No.  2,  1964. 

The  method  is  iterative  and  requires  the  user  to  give  an  initial  estimate  of 
the  minimum  position.  The  required  accuracies  in  the  solution  must  be  specified 
and  a  subroutine  to  calculate  values  of  F(Xj ,x2>. . . ,xn)  provided. 

Versions :  VA04A ;  VA04AD . 

Calls :  CALCFX  (a  user  routine). 


Calls :  CALCFX  (a  user  routine). 

Language :  FORTRAN,  Date :  Feb.  1964, 
Origin :  IVI.J.D.  Powell,  Harwell. 


Size;  4.3K;  270  cards. 


VA05A 


To  minimise  a  sum  of  squares  of  m  functions  in  n  variables,  i.e.  find 
x  =  x(,x2>...,xn  to  minimise 


F(x)  [f^Y 


i=1 


Values  of  derivatives  are  not  required. 

A  hybrid  method  is  used  combining  features  from  the  Newton-Raphson,  Steepest 
descent  and  Marquardt  methods  and  calculating  and  maintaining  an  approximation  to 
the  first  derivative  matrix  using  the  ideas  of  Broyden. 

The  subroutine  can  be  applied  to  the  problem  of  fitting  a  general  function 
G(t,x)  of  n  variables  x  =  x1>x2,...,xn  to  data  points  t^  i=1,2,...,m  where 


111 

F(x)  b^-Gtt^x)]' 


i=l 


would  be  the  function  to  be  minimised. 


It  is  important  that  the  variables  are  scaled  so  that  their  magnitudes  are 
similar.  An  initial  estimate  of  the  solution  is  required  and  the  user  must  specify 
the  accuracy  with  which  the  minimum  value  of  F(x)  is  to  be  found.  A  subroutine  to 
compute  values  of  the  m  functions  r (x)  must  be  provided. 


Versions : 
Calls: 
Language : 
Origin : 


VA05A ;  VA05AD. 

MB11A  and  CALFUN  (a  user  routine) 
FORTRAN,  Date :  May  1969,  Sizes 
M.J.D.  Powell,  Harwell. 


8.8K ; 


509  cards. 


VA06A 


To  calculate  the  minimum  of  a  general  function  of  n  variables  when  values  of 


the  derivatives  with  respect  to  the  variables  can  be  provided,  i.e.  find 

IP 

x  =  Xj  ,x2,...  ,xn  to  minimise  the  function  F(x)  given  j=1,2,...,n. 

The  method  is  a  hybrid  one  based  on  the  steepest  descent  algorithm  and  on 
the  geneialised  Newton  iteration,  see  M.J.D.  Powell,  AERE  -  R.6469,  1970. 


The  user  nust  provide  initial  estimates  of  the  solution  and  provide  a  sub¬ 
routine  to  calculate  values  of  the  function  and  its  derivatives. 


Versions  :  VA06A ;  VA06AD . 

Calls :  CALCFG  (a  user  routine). 

Language :  FORTRAN,  Date :  June  1970,  Size :  6.5K;  344  cards. 

Origin:  M.J.D.  Powell,  Harwell. 
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YA07A 


VA08A 


VA09A 


To  minimise  a  sum  of  squares  of  m  functions  of  n  variables  when  values  of  the 
derivatives  of  the  functions  with  respect  to  the  variables  are  available,  i.e.,  find 
x  =  Xj ,x0,. . . ,xn  to  minimise 


m 


i=l 


m  >  n  m  <  200,  n  <  25 


9f  (x) 

given  —g- —  j=l,2,...,n;  i=l  ,2,...  ,m. 

'  j 

The  subroutine  uses  a  modified  Vtarquardt  method,  see,  R.  Fletcher, 

AERE  -  R.6799. 

The  method  is  iterative  and  the  user  must  supply  an  initial  estimate  of  the 
final  solution.  It  allows  extra  side  conditions  to  be  applied  in  a  limited  way. 

A  subroutine  must  be  provided  to  evaluate  the  f^l^)  ar,d  derivatives.  There 
are  three  options  for  implicit  scaling  of  the  variables.  The  user  must  specify 
the  accuracy  required  in  the  solution. 

Typically  the  functions  fjx)  might  be  residuals  of  a  non-linear  least  squares 
data  fitting  problem. 

Versions :  VA07A ;  VA07AD . 

Calls:  MA1QA  and  MC03AS . 

Language :  FORTRAN,  Date :  April  1971,  Size :  5.8K;  163  cards. 

Origin :  R.  Fletcher,  Harwell. 


To  find  the  minimum  of  a  general  function  f(x)  of  several  variables 
x  =  XjjX^j-.-jX^  given  that  values  of  the  derivatives  df/dx ^  can  be  calculated. 

The  subroutine  should  be  used  on  large  problems  when  storage  space  is  at  a  premium. 

The  method  of  conjugate  gradients  is  used,  see  R.  Fletcher  and  C.M.  Reeves, 
Computer  Journal,  Vol.  7,  p.  149, 

Versions :  VA08A :  VA08AD . 

Calls :  MC03AS. 

Language :  FORTRAN,  Date :  January  1972,  Size :  2. IK;  84  cards. 

Origin :  R.  Fletcher,  Harwell. 


To  calculate  the  minimum  of  a  general  function  of  n  variables  when  values  of 
the  derivat  ives  with  respect  to  the  variables  can  be  provided,  i.e.  find 

x  -  x)tX2,...,xn  to  minimize  the  function  F(x)  given j=l,2,,..,n. 

J 

The  method  is  a  quasi-Newton  method  and  is  described  in  R.  Fletcher,  Computer 
Journal,  Vol.  13,  1970, 

The  user  must  provide  initial  estimates  of  the  solution  and  provide  a  subroutine 
to  calculate  the  function  and  its  derivatives. 
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Remark; 
Versions : 
Calls: 
Language: 
Origin : 


This  routine  supersedes  VAOIA  and  complements  VA06A. 

VA09A ;  VA09AD. 

MC  1 1A. 

FORTRAN,  Date:  April  1972,  Size:  3.1K;  137  cards. 

R.  Fletcher,  Harwell. 


VAIOA 

To  find  a  minimum  of  a  general  function  F(x] ,x^,. .. ,xn)  of  n  variables.  It  is 
assumed  that  the  function  is  differentiable  although  values  of  the  derivatives  are 
not  required. 


A  quasi-Newton  method  is  used  where  derivatives  are  estimated  by  differences 
and  is  described  in  R.  Fletcher,  'FORTRAN  subroutines  for  minimization  by  quasi- 
Newton  methods' ,  AERE  Report  -  R.7125. 


The  user  is  required  to  provide  an  initial  estimate  of  the  minimum  position 
and  a  subroutine  to  evaluate  the  function.  There  are  options  for  providing  an 
estimate  of  the  Hessian  matrix.  Ore  of  these,  to  use  the  Hessian  from  a  previous 
problem,  allow  problems  that  are  similar  to  be  solved  economically. 


Remark:  VAlCA  is  likely  to  be  more  efficient  and  less  likely  to  be  effected  by 

round  off  error  than  VA04A. 

Versions :  VA1Q\;  VA1QAD. 

Calls:  MC11A. 

Language :  FORTRXN,  Date :  April  1972, 

Origin :  R.  Fletcher,  Harwell. 


Size :  3.9K;  193  cards. 


VAl  IA 

To  calculate  the  minimum  of  a  general  function  of  n  variables  when  values  of 
both  the  first  and  second  derivatives  with  respect  to  the  variables  can  be  provided, 
i.e.  find  x  =  Xj^,...^  to  minimize  a  function  F(x)  given j=1,2,...,n  and 

a2F  j 

dx .  dx . 

J  i 

The  method  is  based  on  the  Newton  method  and  is  described  in  M.D.  Kebden, 

AERE  Report  -  R.7160. 


The  user  can  specify  the  absolute  accuracies  required  in  each  variable  and 
must  give  an  initial  estimate  of  the  solution  and  provide  subroutines  to  evaluate 
F(x)  and  its  first  and  second  derivatives. 


Versions :  VA11A;  VA11AD. 

Calls:  MC03AS. 

Language:  FORTRAN,  Date :  October  1971,  Size :  9.2K;  400  cards. 

Origin:  M.D.  Hebden,  Harwell. 
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VBOIA 


VBQ3A 


To  calculate  the  best  least  squares  fit  to  given  data  t^  w^  i=  1 , 2 , . . .  ,m  by 
f(t,x)  a  general  function  of  t  and  n  parameters  x  =  xf  .x^.  Values  of 

derivatives  are  required,  i.e.  find  x  such  that 


m 


i=1 


is  minimized  given  3f^/3Xj  i=l,2,...,m;  j=1,2,...,n. 

The  method  used  is  a  modified  Marquardt  method,  see  R.  Fletcher,  AERE  -  R.6799. 
An  initial  estimate  of  the  solution  is  required  and  also  a  subroutine  to  calculate 
values  of  f(t^,x)  and  its  derivatives. 

An  estimate  of  the  standard  deviations  of  the  final  parameters  and  the  variance- 
covariance  matrix  for  the  fit  are  returned  to  the  user. 


Remark :  Replaces  the  old  version  of  VB01A/AD  which  used  a  Newton  method. 


Versions : 
Calls: 
Language : 
Origin: 


VBOIA;  VBOIAD. 

MA1QA,  MC03AS ,  OAOIA,  SAOIA  and  DERTV  (a  user  routine). 
FORTRAN,  Date :  June  1972,  Size:  9.3K;  209  cards. 

R.  Fletcher,  Harwell. 


To  minimise  a  sum  of  squares  of  m  functions  of  n  variables  when  values  of 
derivatives  with  respect  to  the  variables  are  available,  i.e.  f ind  x=Xj ,x2, . . . ,xn 
to  minimise 


m 


The  method  is  an  iterative  descent  method  with  quadratic  convergence,  see, 

R.  Fletcher  and  M.J.D.  Powell,  Computer  Journal,  Vol.  6,  No.  2,  July  1963. 

An  initial  estimate  of  the  solution  and  the  accuracy  required  in  the  solution 
must  be  specified.  A  subroutine  must  be  provided  for  evaluating  f^tx)  i=1,2,...,m 
and  the  derivatives. 


The  subroutine  may  be  applied  to  least  squares  data  fitting  problems. 


Versions : 

VB03A ;  VB03AD. 

Calls: 

MB01B,  VD02A  and  CALCFG 

(a  user 

routine) . 

Language : 

FORTRAN ,  Date  :  May 

1963, 

Size:  3. IK 

Origin : 

M.J.D.  Powell,  Harwell. 

163  cards. 
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VB05B 


To  calculate  the  best  weighted  least  squares  fit  to  given  data  xA  y^  w^ 
i=l ,2,.. . ,m  by  a  cubic  spline  S(x)  which  has  knots  j=1 ,2,. . . ,n  specified  by  the 
user,  i.e.  finds  S(x)  such  that 

m 


F  = 


V  *1  b,.  ~  S(x.)]2 


2  <  n 


i=1 


is  minimised  and  ^  <  x^  <  ^  for  all  i. 

The  spline  is  represented  in  terms  of  fundamental  splines  to  obtain  a  sparse 
overdetermined  system  of  linear  equations  in  parameters  defining  S(x).  The  equa¬ 
tions  are  triangularised  and  solved  using  Householder  type  orthogonal  transforma¬ 
tions.  Full  advantage  is  taken  of  the  sparsity  structure  resulting  in  a  minimum 
storage  requirement. 

The  spline  S(x)  is  represented  on  return  to  the  user  by  the  knots,  and  its 
values  and  the  values  of  its  first  derivatives  at  the  knots. 


Remark : 
Versions; 
Language : 
Origin : 


Values  of  S(x)  can  be  computed  using  TG01B. 

VB05B ;  VB05BD. 

FORTRAN,  Date:  1966,  Size:  6.  IK;  266  cards. 
M.J.D.  Powell,  Harwell. 


VB06A 

To  calculate  a  least  squares  fit  to  given  data  xi  y^  w^  i=l .2 . m  by  a  cubic 

spline  (x)  ,  which  has  knots  ^  i=1,2,...,n  specified  by  the  user,  and  subject  to 
smoothing  conditions  imposed  under  the  control  of  the  user,  i.e.  given  n-2  smoothing 
factors  0j  j=2,3,. . .  ,n-1  minimises 

m  n-1 

i=1  j=2 

where  dj  j=2 ,3,. . . ,n-1  are  the  discontinuities  in  third  derivative  of  S(x)  at  the 
knots  j=2 ,3, . . . ,n-1 . 

The  spline  is  represented  in  terms  of  fundamental  splines  to  obtain  a  sparse 
overdetermined  system  of  linear  equations  which  is  triangularised  and  solved  using 
Householder  type  orthogonal  transformations.  Full  advantage  is  taken  of  the 
sparsity  structure  resulting  in  a  minimal  storage  requirement.  For  discussion  of 
the  smoothing  term  see,  M.J.D.  Powell,  AERE  -  TP. 308,  1967. 


i2  bt-su.)]2  +  y  e2  d2 


m  >  3 


The  spline  is  represented  on  return  by  the  knots,  its  values  at  the  knots  and 
its  first  derivative  values  at  the  knots. 


Remark:  Values  of  S(x)  can  be  computed  using  TG01B. 

Versions:  VB06A ;  VB06AD. 

Language :  FORTRAN,  Date :  July  1963,  Size:  6.5K;  287  cards. 

Origin:  M.J.D.  Powell,  Harwell. 
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VC01A 


To  calculate  a  'best'  weighted  least  squares  fit  to  given  data  y^  w^ 

w\  i=l,2 . m  by  a  polynomial  P^(x)  of  specified  degree  n,  i.e.  find  Pn(x)  such 

that 


m 


i=l 


is  minimised. 


The  polynomial  p^lx)  is  represented  as  a  linear  combination  of  orthogonal 
polynomials  Qj(x)  j=0,l,...,n  orthogonal  over  the  point  set  i=l,2,...,m,  see, 

G.E.  Forsythe,  Journal  of  S.I.A.M. ,  Vol.  5,  1957. 

In  addition  to  the  recurrence  relation  parameters  defining  the  Q.(x)s  the 
subroutine  returns  and  prints  the  parameter  variances,  number  of  residual  sign 
changes  and  residual  variances. 

Remark:  PE07A  and  PE08A  can  be  used  to  evaluate  P  (x)  or  obtain  its  coefficients. 

-  n 

Versions :  VC01A;  VCOIAD. 

Language :  FORTRAN,  Date :  July  1963,  Size :  2.3K;  84  cards. 

Origin:  E.J,  York*,  Harwell. 

VCQ3A 

To  calculate  a  smooth  weighted  least  squares  fit  to  given  data  x^^  y^^  w 
i=1 ,2, . . .  ,m  by  a  cubic  spline  S(x).  The  subroutine  automatically  chooses  the 
'best'  knots  i=1,2,...,n  and  smoothing  factors  0j  j=2,3,... ,n-l  so  as  to 
minimise 

m  n- 1 

wi  5>'i  -  S(x.)]2  6j 

i=l  j=2 

where  d^  is  the  third  derivative  discontinuity  at  the  jth  knot.  While  maintaining  a 
degree  of  smoothness  the  routine  also  attempts  to  follcxv  trends  in  the  data,  see 
M.J.D.  Powell,  AERE  -  TP. 307,  1967.  The  method  is  iterative;  VB06A  is  used  to 
solve  the  intermediate  least  squares  problems. 

The  spline  is  represented  by  the  knots,  its  values  at  the  knots  and  its  first 
derivative  values  at  the  knots. 


Remark: 
Versions : 
Calls: 
Language : 
Origin : 


Values  of  S(x)  can  be  obtained  using  TC01B. 
VC03A ;  VC03AD. 

VB06A. 

FORTRAN,  Date:  Oct.  1967,  Size:  5. IK; 
M.J.D.  Powell,  Harwell. 


267  cards. 


VC04A 

To  fit  a  straight  line  to  data,  i.e.  given  data  points  x A  i=1,2,...,m  and 

optionally  weights  Wj^  i=1,2,...,m  computes  the  best  straight  line  fit,  y(x)  =  a  +  bx, 
which  minimizes  the  sum  of  squares 
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t 

t 

l 


i 

i 


in 

=  ^  wi  \yL  -  (a  +  bx.)}‘ 


m  >  2 


i=1 


There  are  options  for  obtaining  the  fit  x(y)  =  p  +  qy  and  information  is  also 
available  for  the  general  analysis  of  the  correlation  problem. 

Versions :  VC04A ;  VC04AD . 

Calls:  MC02AS,  VC05AS,  MX02A  and  0A03A. 

Language :  FORTRAN,  Date:  July  1972,  Size :  4.2K;  240  cards. 

Origin :  J.  Ledger*,  Harwell. 


VC05A 


To  calculate  the  best  weighted  least  squares  fit  to  given  data  x^,  y^ ,  w^, 
2,,..  ,m 
to  minimize 


i=1.2....,m  by  a  sum  of  n  decaying  exponentials,  i.e.  find  aj  and  bj  j=1,2,...,n 


VDOtA 


wi  (yi  "  ^  aje  ^  m  >  2n,  bj  <  0  j=l,2,...,n 

i=1  j=1 

A  method  is  used  (VA11A)  which  utilizes  both  first  and  second  derivatives. 
Code  for  calculating  values  of  the  derivatives  is  not  required  of  the  user  but  is 
included  in  VC05A  itself. 

The  user  must  specify  the  accuracy  required  in  the  b^s  (the  a^s  are  obtained 
via  MA14A) .  The  routine  returns  the  parameter  variance-covariance  matrix,  the  sum 
of  squares  and  the  residuals. 

Versions :  VC05A ;  VC05AD. 

Calls:  MA14A,  MA22A  and  VA11A. 

Language :  FORTRAN,  Date:  July  1973,  Size:  7K;  181  cards. 

Origin :  M.D.  Hebden,  Harwell. 


To  find  a  minimum  of  a  general  function  f ( x)  of  one  variable  to  within  a 
specified  accuracy. 


The  method  is  iterative  and  an  estimate  of  the  minimum  position  at  each  stage 
is  predicted  by  constructing  a  quadratic  function  defined  by  three  previous  esti¬ 
mates  of  the  position. 


The  user  must  supply  the  initial  estimate  and  indicate  a  reasonable  chaige 
to  be  made  in  the  variable  to  start  off  the  search.  Code  must  be  provided  to 
evaluate  f(x). 


Versions :  VD01A;  VD01AD. 

Language :  FORTRAN,  Date:  May  1964,  Size :  1.4K;  97  cards. 

Origin :  M.J.D.  Powell,  Harwell. 
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VD02A 


VEOfA 


VEQ2A 


To  find  a  minimum  of  a  general  function  f(x)  of  one  variable  to  within  a 
specified  accuracy  when  values  of  its  first  derivative  can  be  provided. 

The  position  of  the  minimum  is  predicted  using  a  cubic  defined  by  the  function 
and  derivative  values  at  two  previous  estimates  of  the  minimum. 

The  initial  estimate  is  supplied  by  the  user  and  an  indication  must  be  given 
as  to  a  reasonable  change  to  make  to  start  off  the  search.  Code  must  be  provided 
to  evaluate  f(x)  and  its  first  derivative. 

Versions :  VD02A;  VD02AD. 

Language :  FORTRAN,  Date :  May  1964,  Size :  !.2K;  62  cards. 

Origin :  M.J.D.  Powell,  Harwell. 


To  find  the  minimum  of  a  general  function  f(x  of  n  variables, 

subject  to  the  variables  satisfying  m  linear  inequality  constraints 
m 

i=l , 2, . . . ,m 


E 

j=i 


c.  .  x .  >  d. 

ij  J  i 


when  values  of  the  derivatives 


3f 


j=t,2,...,n  are  available, 
j 

The  method  is  that  of  Davidon' s,  based  on  using  an  approximation  H  to  the 
inverse  Hessian  matrix  of  f( x) »  but  enabling  linear  inequality  constraints  to  be 
dealt  with  by  projection  techniques. 


An  initial  estimate  of  the  solution  which  satisfies  the  constraints  must  be 

given.  The  user  must  also  specify  the  accuracy  required  and  give  a  lower  bound  for 

3fi 

the  value  of  f(x).  Values  of  f(x)  and  must  be  provided  through  a  subroutine. 

J 

VEOIA  provides  additional  options  which  allow  it  to  be  used  efficiently  for 
solving  parametric  programming  problems,  i.e.  when  it  is  required  to  vary  the 
definition  of  f(x)  or  vary  the  constraints  in  some  way. 


Remark: 
Versions: 
Calls: 
Language : 
Origin: 


See  also  VE03A  and  VE05A. 

VEOIA;  VEOIAD. 

MC03AS  and  FUNCT  (a  user  routine). 
FORTRAN,  Date :  Dec.  1969,  Size : 
R.  Fletcher,  Harwell. 


13K;  359  cards. 


To  find  a  minimum  of  quadratic  function  of  the  form 

f(x)  = 

where  A  =  fa^j]  is  a  symnetric  matrix,  £  a  vector  and  x  the  vector  of  n  variables 
x)fx2,...,xn  which  are  sought  subject  to  the  linear  constraints 

Li  <  xL  «  uA  1=1,2,...  ,n 
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and 


7=1 


x 


n 


d. 

1 


i— 1  f2|M  *  jin 


Any  of  the  inequalities  may  be  designated  as  strict  qualities* 

For  the  method  see,  R.  Fletcher,  AERE  -  TP. 401  and  R.  Fletcher,  AERE  -  R.6370. 

The  subroutine  offers  several  modes  of  operation  including  the  case  when  A  is 
positive  definite  and  the  case  of  parametric  programming  when  f(x)  and  the  con¬ 
straints  may  be  varied  slightly. 


Versions:  VE02A;  VE02AD. 

Calls:  LA02A,  MB01B  and  MC03AS. 

Language :  FORTRAN,  Date:  July  1970,  Size:  9.4K;  303  cards. 

Origin :  R.  Fletcher,  Harwell. 

VE05A 

To  find  the  miniimm  of  a  general  function  f(x)  of  n  variables  x  =  »x2»***  »xn> 

subject  to  the  variables  satisfying  m  linear  constraints 


1. 

i 


<  x. 


u. 

1 


and 


l 

1=1 


'ij  J 


>  a. 


i=  1,2,...  ,jb 


where  any  of  the  constraints  may  be  made  strict  equalities.  Derivatives  -gj- 
j=1,2,...,n  are  required.  J 

The  method  is  given  in  R.  Fletcher,  AERE  -  TP. 431.  There  are  several  modes 
of  operation  and  certain  modes  require  the  user  to  supply  an  initial  feasible 
solution.  Scaling  can  be  specified  and  a  subroutine  must  be  provided  to  compute 
values  of  the  function  f(x)  and  its  derivatives. 


Remark: 
Versions : 
Calls: 
Language : 
Origin: 


See  also  VE01A  and  VE05A. 

VE03A;  there  is  no  double  precision  version. 

LA02A,  NC03AS  and  VE02A. 

FORTRAN,  Date:  June  1971,  Size:  17.9K;  536  cards. 

R.  Fletcher,  Harwell. 


VE04A 


To  find  x  =  |x( ,x2>... ,xn]  that  minimizes  a  quadratic  function  of  the  form 


Q(x) 


T  T 

\  x  Ax  -  b  x 


where  A  =  ja^j]  Is  symmetric  matrix  and  b  a  vector  and  where  x  is  subject  to  bounds 
<  xi  ^  ui  i=,*2****»n* 

The  method  is  that  of  R.  Fletcher  and  M.P.  Jackson  (1973),  Harwell  Report 
TP.  528. 
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The  routine  can  be  used  to  solve  linear  least  squares  data  fitting  problems  in 
cases  when  the  variables  are  subject  to  bounds.  For  this  application  there  is  an 
extra  entry  point  which  provides  the  variance  covariance  matrix  for  the  fit. 

Versions :  VE04A;  VE04AD. 

Language :  FORTRAN,  Date :  April  1973,  Size :  6.7K;  282  cards. 

Origin:  R.  Fletcher,  Harwell. 

VE05A 

To  find  the  minimum  of  a  general  function  f(x^ ,x^f . . . .x^) ,  of  n  variables, 
subject  to  bounds  and  linear  constraints  of  the  form 


and 


li  ^  Xi  ^  bi  i=1,2,...,n 

n 

E'uh'h  »•’ . - 

i=t 


« 


3f 

Values  of  the  derivatives  i=1,2,...,n  are  required.  Variables  can  be  specified 
as  unbounded  and  constraints  as  strict  equalities,  and  advantage  can  be  taken  of 
sparsity  in  the  constraints. 

The  method  is  a  variant  of  Goldfarb's  algorithm  and  is  described  in  the  Harwell 
report,  A.  Buckley,  TP. 544. 

The  user  specifies  the  accuracy  required  and  must  provide  a  subroutine  to 
calculate  values  of  f(x)  and  its  first  derivatives.  An  initial  feasible  point  is 
optional. 

The  routine  has  been  designed  so  that  the  user  can  optionally  change  certain 
parameters  which  are  used  to  control  the  algorithm.  These  parameters  and  additional 
output  parameters  are  stored  in  COfl/MON  blocks. 

Versions :  VE05A ;  VE05AD . 

Language :  FORTRAN,  Date :  July  1973,  Size:  25. 3K;  1063  cards. 

Origin:  A.  Buckley*,  Harwell. 


Zh^^^loiVjFORTOM^aind^^stemJ^a^^i^tes 
ZAO  IAS 


Provides  the  FORTRAN  programmer  with  the  facility  for  measuring  the  real  time 
elapsed  in  executing  a  section  of  program. 


The  routine  uses  the  360/OS  TIME  facility  to  obtain  a  real  time  clock  reading. 
It  uses  clock  reading  to  update  its  own  internal  clock.  Note:  It  is  necessary  to 
do  it  this  way  in  order  to  allow  timing  across  day  changes.  The  ZA01AS  clock  is 
initialised  to  zero  and  does  not  give  the  time  of  day. 
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Remark; 


1 


I 

i 


Language : 
Origin; 


In  a  multi-programming  environment  elapsed  time  is  not  very  useful  for 
measuring  the  efficiency  of  programs  and  ZA02AS  which  times  relative  to 
activity  should  be  used. 

360/BAL,  Date:  Aug.  1967,  Size;  .IK;  57  cards. 

R.C.F.  McLatchie,  Harwell. 


ZAQ2AS 

Provides  the  FORTRAN  programmer  with  the  following  task  timing  facilities. 

(1)  ZA02AS,  to  measure  the  c.p.u,  activity  in  executing  a  section  of  program,  i.e. 
using  a  clock  which  only  ticks  on  when  the  program  has  control  of  the  c.p.u. 

(2)  ZA02BS  request  an  interrupt  to  occur  after  a  specified  interval  of  time 
(relative  to  activity)  when  either,  an  ABEND  with  a  user  provided  completion 
code  is  forced,  or,  control  is  given  to  a  user  provided  subroutine; 

(3)  2A02CS  return  the  amount  of  time  still  to  run  for  the  step;  (4)  ZA02DS  to 
ABEND  or  pass  control  to  a  user  subroutine,  as  for  ZA02BS,  at  a  specified  interval 
before  the  step  time  chop  is  due. 

The  370/t)S  ST1MER  and  TTINER  facilities  are  used.  The  routine  maintains  an 
internal  clock  which  is  updated  at  every  call. 


The  interrupt  request  passed  to  ZA02BS  or  ZA02DS  may  be  changed  or  cancelled. 
All  four  facilities  may  be  used  in  the  same  program. 

Language :  360/BAL,  Date :  December  1970,  Size ;  1.2K;  606  cards. 

Origin:  R.C.F.  McLatchie  and  M.J.  Hopper,  Harwell. 

ZA03AS 

To  cause  the  transfer  of  data  performed  by  the  next  READ  or  WRITE  statement  to 
be  from  storage  to  storage. 

The  user  provides  an  array  which  is  presented  to  the  FORTRAN  I/O  support 
routines  as  the  buffer  to  be  used  on  the  next  I/O  operation.  On  a  READ  the  infor¬ 
mation  put  into  the  array  by  the  user  is  transferred  into  the  variables  in  the  READ 
statement  list.  If  the  operation  is  a  formatted  READ  the  information  is  converted 
under  FORMAT  before  being  transferred.  On  a  WRITE  the  process  is  reversed  so  that 
after  the  write  has  been  performed  the  buffer  array  will  contain  the  output  record 
constructed  from  the  list. 


ZA03AS  allows  the  FORTRAN  progranmer  to  manipulate  character  information  by 
making  use  of  the  FORTRAN  FORMAT  facilities.  It  can  also  be  used  to  re-read  input 
records. 

Language :  360/BAL,  Date :  Aug.  1967,  Size ;  .2K;  74  cards. 

Origin:  SHARE  program  CORE  I  adapted  for  Harwell  by  R.C.F.  McLatchie. 

ZA05AS 

Converts  a  line  of  ASCII  data  to  an  EBCDIC  card  image.  It  provides  in  conjunc- 
v  tion  with  ZA03AS,  a  facility  for  reading  lines  of  ASCII  paper  tape  data  and  data 
cards. 


The  user  provides  the  routine  with  an  array  containing  the  line  of  ASCII  data 
and  another  array  to  receive  the  card  image.  The  routine  provides  several  checking 
options. 
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Language:  360/BAL,  Date :  1967,  Size:  1.3K;  257  cards. 

Origin :  Harwell, 

ZAQ6AS 

Enables  a  FORTRAN  program  to  gain  access  to  PARM  information  given  on  the  EXBC 
card  for  the  step. 

The  information  must  be  given  ir  he  form  Keyword  =  n,  or  Keyword  =  string  or 
just  Keyword.  The  user  specifies  to  the  routine  the  Keyword  to  be  searched  for  then 
depending  on  the  option  selected  either,  the  integer  value  n  is  returned,  or,  the 
string  of  text  ’string'  is  returned  or  an  indication  of  whether  the  Keyword  was 
found  is  returned. 

The  routine  locates  the  PARM  field  using  the  register  1  value  found  in  the 
first  save  area  for  the  task. 

Language:  360/BAL,  Date :  Jan.  1970,  Size:  ,4K;  174  cards. 

Origin:  M.J.  Hopper,  Harwell. 

ZA07AS 

To  set  a  return  code  for  a  job  step,  i.e.  a  code  number  between  0  and  4095  which 
can  be  tested  on  subsequent  steps  with  the  EXEC  card  COND  parameter.  This  allows 
steps  of  a  job  to  be  executed  conditionally  on  the  success  or  failure  of  a  previous 
step. 

A  call  to  ZA07AS  is  equivalent  to  a  CALL  EXIT  but  with  an  argument  specifying 
the  return  code. 

Remark:  The  FORTRAN  statement  STOP  n  also  returns  a  code  but  its  value  n  must 

be  given  as  a  constant. 

Language:  360/BAL,  Date:  Jan.  1970,  Size:  .IK;  25  cards. 

Origin:  M.J.  Hopper,  Harwell. 

ZA08AS 

To  obtain  the  time  of  day  in  hours,  minutes  and  seconds.  The  time  is  returned 
as  an  8  byte  character  string  in  the  form  hh.mm.ss  which  can  be  immediately  printed 
using  an  A8  format. 

The  360/OS  TIME  facility  is  used. 

Language;  360/BAL,  Date:  1967,  Size:  .IK;  45  cards. 

Origin :  W. E.  Hart*,  Harwell. 

ZA09AS 

To  obtain  the  current  date  in  days,  months  and  years.  The  date  is  returned  as 
an  8  byte  character  string  in  the  form  dd/nm/yy  which  can  be  printed  using  an  A8 
format. 

The  360/OS  TI^  facility  is  used. 

Language :  360/BAL,  Date:  Aug.  1967,  Size:  .2K;  85  cards. 

Origin:  W.E.  Hart*,  Harwell. 
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ZA1CAS 


ZA12AS 


ZA15AS 


ZA1GAS 


ZAJ7AS 


ZA18AS 


To  obtain  the  current  date  in  days,  months  and  years.  The  date  is  returned  in 
three  parts,  the  day  (integer),  the  month  abbreviated  (characters)  and  the  year 
(integer). 

The  360/OS  TIME  facility  is  used. 

Language :  370/BAL,  Date:  1967,  Size:  ,3K;  62  cards. 

Origin:  Harwell. 

To  allow  a  FORTRAN  program  to  send  a  message  to  the  360  operator' s  console. 

The  360/0S  WTO  facility  is  used. 

Language :  360/BAL,  Date :  Jan.  1968,  Size:  ,2K;  59  cards. 

Origin :  W.E.  Hart*,  Harwell. 


To  give  the  FORTRAN  user  the  facility  of  translating  from  one  internal 
character  code  to  another.  Five  options  are  available,  (i)  EBCDIC  to  BCD, 

(ii)  BCD  to  EBCDIC,  (iii)  a  translation  specified  by  a  256  byte  translate  table 
supplied  by  the  user,  (iv)  mixed  EBCDIC/BCD  to  EBCDIC,  and  (v)  EBCDIC  to  UNIVAC 
field  data  code. 

Remark :  The  routine  is  useful  for  translating  card  decks  punched  in  BCD  into 

EBCDIC  for  use  on  the  360. 

Language :  360/BAL,  Date:  March  1971,  Size:  1.2K;  217  cards. 

Origin :  M.J.  Hopper,  Harwell. 

To  allow  a  FORTRAN  program  to  swop  the  names  of  two  disk  data  sets  during 
execution  and/or  return  the  number  of  tracks  currently  in  use  in  a  data  set. 

Its  main  purpose  is  to  allow  a  disk  data  set  to  be  maintained  through  updates 
in  a  way  which  is  safe  and  is  completed  in  a  single  job  step.  This  is  done  by 
creating  the  new  version  as  a  temporary  data  set  and  swopping  names  if  the  update 
is  successfully  completed  and  allowing  the  system  to  delete  the  unwanted  version. 

Language :  360/BAL,  Date ;  October  1972,  Size:  1.5K;  206  cards. 

Prig  in :  H.A.  Kearsey,  Harwell. 

To  allow  a  FORTRAN  program  to  extract  information  from  the  T10T  system  control 
block.  There  are  options  to,  (a)  obtain  the  jobname,  (b)  check  for  the  presence  of 
a  DDname,  and  (c)  return  a  copy  of  the  T1CT  in  an  array  provided  by  the  user. 

Language :  360/BAL,  Date :  November  1972,  Size:  ,3K;  93  cards. 

Origin:  H.A.  Kearsey,  Harwell. 

To  allow  a  FORTRAN  program  to  obtain  the  BLKSI2E.  LRBCL  and  RBCFM  values  from 
the  DCB  fields  of  either  a  JFCB  (DO  statement),  a  DSCB  (disk  data  set  label)  or 
from  an  open  DCB. 


77 


Date:  Dec.  1972 


8K ;  202  cards 


i 

Language :  360/BAL , 

Origin :  M.J.  Hopper,  Harwell. 


Size :  . 


ZEOIA 


To  estimate  the  rounding  errors  generated  in  floating  point  arithmetic, 
method  is  independent  of  computer. 


The 


A  100  pairs  of  positive  numbers  are  generated  chosen  to  be  not  exactly  repre¬ 
sentable  either  on  a  decimal  computer  or  one  working  to  base  2,  4,  8,  16,  etc. 
Floating  point  operations  are  carried  out  on  the  numbers  in  such  a  way  as  to  give 
estimates  of  the  maximum  and  mean  errors. 

Versions :  ZE01A;  ZE01AD. 

Language :  FORTRAN,  Date:  June  1966,  Size :  .8K$  35  cards. 

Origin :  A.R.  Curtis,  Harwell. 

ZROIAS 

To  set  a  return  code  for  a  job  step,  i.e.  a  code  number  between  0  and  4095 
which  can  be  tested  on  subsequent  steps  with  the  EXEC  card  COND  parameter.  The 
routine  must  be  link-edited  into  the  user's  program  as  the  main  entry  to  the 
program. 

Remark:  See  also  ZA07AS  and  FORTRAN  STOP. 

Language :  360/BAL,  Date:  Sept.  1968,  Size:  ,2K;  24  cards. 

Origin:  D.  McVicar,  Harwell. 

ZR02AS 

To  provide,  (i)  the  entry  point  address  of  the  module  in  which  the . subroutine 
is  incorporated,  (il)  the  length  and  contents  of  the  PARM  field. 

The  PARM  field  is  returned  in  an  array  supplied  by  the  user. 

Remark :  See  also  ZA06AS  for  PARM  field  processing. 

Language :  360/BAL,  Date :  Jan.  1970,  Size :  .21;  94  cards. 

Origin:  G.  Hunter*,  Harwell. 

ZR03AS 

To  allow  a  FORTRAN  program  to  obtain  copies  of  certain  system  control  blocks. 
(CDE,  channel  prog.,  CVT,  DCB,  DEB,  DSCB,  IOB,  JFCB,  RB,  TCB,  TIOT,  UCB).  Only  one 
control  block  can  be  copied  at  a  time  and  the  user  must  specify  how  many  bytes  are 
to  be  copied.  There  is  an  option  to  allow  the  user  to  specify  the  address  of  the 
area  to  be  copied  thereby  making  it  possible  to  chain  through  control  blocks  to 
obtain  areas  of  interest  not  directly  covered  by  the  routine. 

Versions :  ZR03AS . 

Language:  360/BAL,  Date:  Jan.  1973,  Size:  1.2K;  356  cards. 

Origin :  M.J.  Hopper,  Harwell, 


ZR1QAS 


ZVOIAD 


In  the  event  of  certain  types  of  program  interrupt,  to  print  out  information  to 
assist  in  determining  the  cause  and  precise  location  of  the  interrupt. 

The  interrupts  intercepted  by  ZR1QAS  are  those  with  completion  codes  0C1  to  0C5. 

The  common  ones  occurring  in  FORTRAN  programs  are,  OC5  Addressing  (array 
subscript  error?),  0C1  Operation  (overwriting  code  or  address  tables?),  0C4  Protec¬ 
tion  (subscript  error?). 

The  information  printed  by  ZR1QAS  includes,  interrupt  address,  old  PSW, 
register  contents,  96  byte  core  dump  of  area  around  interrupt  address. 

The  360/OS  SPIE  facility  is  used  to  intercept  the  interrupts;  the  addresses 
etc.  are  retrieved  using  360/OS  control  blocks  and  printed  output  produced  using  j 

normal  FORTRAN  I/O  routines.  Execution  is  terminated  using  a  CALL  EXIT. 

Language :  360/BAL,  Date :  1968,  Size :  1.3K;  263  cards. 

Origin :  K.  Moody,  IBM,  modified:  G.  Hunter*,  M.J.  Hopper,  Harwell. 

To  allow  a  FORTRAN  program  to  access  information  contained  on  a  DP  card. 

The  subroutine  obtains  the  information  by  reading  the  Job  File  Control  Block 
(JFCB)  associated  with  the  DD  card  from  the  System  Job  Queue. 

The  DDname  must  be  of  the  form  FTnnFOOl  and  options  are  provided  for  obtaining; 
the  volume  serial  no.;  the  data  set  name,  and  the  JFCB  (which  contains  an  internal 
representation  of  the  DD  card  information) . 

Language :  360/BAL,  Date:  Nov.  1967,  Size :  .4K;  57  cards. 

Origin :  D.  McVicar,  Harwell. 
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Some  of  the  more  recent  library  routines  written  by  the  Numerical  Analysis  Group  at 
Harwell  have  been  published  as  A.E.R. E.  reports.  Each  report  gives  details  beyond  those 
normally  found  in  the  library  write  ups  and  also  contains  a  listing  of  the  routine.  The 
reports  can  be  obtained  from  Harwell  or  from  H.M.  Stationery  Office.  The  following  list 
gives  the  routines  which  have  been  published  in  this  way. 

GAG5A  'A  FORTRAN  subroutine  for  determining  rapidly  whether  points  are  inside  a  plane 
region',  J.K.  Reid,  R.7298. 

LA02A  'The  calculation  of  feasible  points  for  linearly  constrained  optimization 
problems' ,  R.  Fletcher,  R.6354. 

MA15C  'Two  FORTRAN  subroutines  for  direct  solution  of  linear  equations  whose  matrix 
is  sparse,  symmetric  and  positive-definite',  J.K.  Reid,  R.711S. 

MM6A  'A  FORTRAN  subroutine  for  the  solution  of  large  sparse  sets  of  linear  equations 
by  conjugate  gradients',  J.K.  Reid,  R.6545. 

MM7A  See  MA15C. 

MA18A  'FORTRAN  subroutines  for  the  solution  of  sparse  sets  of  linear  equations', 

A.R.  Curtis  and  J.K.  Reid,  R.6844. 

MA21A  'FORTRAN  subroutines  for  the  solution  of  linear  equations,  inversion  of  matrices 
and  evaluation  of  determinants',  S.  Marlow  and  J.K.  Reid,  R.6899. 

MA22A  See  MA21A. 

MA23A  See  M/V2JA. 

MA24A  See  MA21A. 

MB)  1A  'A  FORTRAN  subroutine  to  invert  a  rectangular  matrix  of  full  rank',  M.J.D,  Powell, 
R.6072. 

MC09A  See  NS03A. 

MC1QA  See  MA21A. 

MC12A  See  MA18A. 

ME07A  See  MA21A. 

NBOIA  See  OBUA. 

N50IA  'A  FORTRAN  subroutine  for  solving  systems  of  non-linear  algebraic  equations', 
M.J.D.  Powell,  R. 5947. 

NS03A  'FORTRAN  subroutines  for  the  solution  of  sparse  systems  of  non-linear  equations', 
J.K.  Reid,  R.7293. 

OBUA  'A  FORTRAN  subroutine  for  drawing  a  curve  through  a  given  sequence  of  data 
points' ,  S.  Marlow  and  M.J.D.  Powell,  R.7092. 

0B12A  'A  FORTRAN  subroutine  for  plotting  a  cubic  spline  function' ,  S.  Marlow  and 
M.J.D.  Powell,  R. 7470. 

TD02A  See  NS03A. 
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TSOI  A 

VA06A 

VA07A 

VA08A 

VA09A 

VA1QA 

VE02A 


'A  FORTRAN  subroutine  for  calculating  a  cubic  spline  approximation  to  a  given 
function',  M.J.D.  Powell,  R.7308. 

'A  FORTRAN  subroutine  for  unconstrained  minimization,  requiring  first  derivatives 
of  the  objective  function'  ,  M.J.D.  Powell,  R.6469. 

'A  modified  Manquardt  subroutine  for  non-linear  least  squares' ,  R.  Fletcher, 
R.6799. 

'A  FORTRAN  subroutine  for  minimization  by  the  method  of  conjugate  gradients', 

R.  Fletcher,  R.7073. 

'FORTRAN  subroutines  for  minimization  by  quasi-Newton  methods',  R.  Fletcher, 
R.7125. 

See  VA09A. 

'A  FORTRAN  subroutine  for  general  quadratic  programming'  ,  R.  Fletcher,  R.6370. 
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PART  II:  Topics  of  General  Interest  to  Users  of  the  Harwell 
Subroutine  Library 


1.  Naming  conventions 

Library  subroutines  fall  into  specific  groups,  each  group  being  associated  with  a 
different  type  of  problem,  i.e.  Differential  equations,  matrix  calculations,  input/output 
aids,  etc.  Each  main  group  is  further  subdivided  and  the  grouping  is  reflected  in  the 
subroutine  name. 

The  name  is  always  of  a  standard  form  ’aannbc’  where  a,  b  and  c  are  alphabetic  and 
n  numeric.  This  form  as  well  as  providing  scope  for  classification  was  chosen  as  a  form 
unlikely  to  conflict  with  the  names  of  user  subroutines. 

The  first  two  characters  'aa'  identify  the  main  classification  group  and  sub-group 
to  which  the  subroutine  belongs,  e.g.  in  the  matrix  calculation  group  which  has  names 
beginning  with  M 

MA  solutions  of  linear  equations 

MB  inverses  of  matrices 

MC  matrix  and  vector  operations 

The  third  and  fourth  characters,  the  two  digits  'nn' ,  identify  the  subroutine  within 
the  sub-group,  e.g. 

MA07  solves  a  band  structured  system  of  linear  equations 

MAI 2  solves  an  upper  Hessenberg  system  of  linear  equations 

The  fifth  character  'b'  is  primarily  to  denote  a  close  relationship.  If  a  modified 
version  of  a  subroutine  is  introduced  and  for  some  reason  the  new  version  cannot 
completely  replace  the  old  the  fifth  character  is  used  to  distinguish  between  the  two 
versions,  e.g. 

PA02B  is  essentially  the  same  subroutine  as  PA02A  except  that  the  B  version 
generates  an  error  estimate. 

The  fifth  character  is  also  used  when 

(a)  the  library  subroutine  as  presented  to  the  user  is  really  a  package  of  sub¬ 
routines  , 

(b)  the  subroutine  contains  additional  entry  points,  and 

(c)  the  library  subroutine  contains  named  CO^M^N  areas. 

The  library  subroutine  DC01AD  is  a  good  example  of  this  for  it  consists  of  7  subroutines 
DC01AD,  DC01CD,  DC01DD,  DCOIED,  DC01FD,  DC01GD  and  DCOIZD,  and  has  2  secondary  entry 
points  DC01BD  and  DC01XD,  and  6  named  COVMON  areas  DC01HD,  DC01ID,  DCOIJD,  DC01KD,  DC01LD 
and  DC01YD. 

The  sixth  character  'c'  can  be  one  of  the  following 

omitted  -  the  subroutine  expects  its  real  arguments  to  be  single  length,  i.e.  REAL*4, 
and  usually  works  in  single  length  arithmetic. 

written  in  360/assembler  code  and  will  expect  its  real  arguments  to  be  given 
single  length. 
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D  -  for  both  FORTRAN  and  assembler  it  expects  real  arguments  to  be  double  length, 

i.e.  REAL*8,  and  usually  works  in  double  length  arithmetic. 

I  -  for  both  FORTRAN  and  assembler  it  expects  its  arguments  to  be  integer,  i.e. 

INTEGER*4. 

A  few  of  the  subroutines  do  not  conform  to  the  above  contentions. 

2.  Write  ups  (subroutine  specifications) 

2. 1  What  a  write  up  should  tell  you 

Each  subroutine  in  the  library  has  associated  with  it  a  set  of  specification 
notes.  Each  set  of  notes,  which  we  shall  refer  to  as  write  ups,  describes  the 
subroutine's  requirements  and  the  facilities  it  offers.  A  write  up  consists  usually 
of  the  following  sections : 

(1)  Purpose:  a  brief  description  of  what  the  subroutine  does.  The  content  of 
this  section  should  provide  sufficient  information  for  the  potential  user 
to  decide  whether  the  subroutine  is  going  to  be  of  any  use. 

(2)  Argument  list:  gives  the  details  required  to  use  the  subroutine,  i.e. 
argument  specifications,  initial  values,  variable  types,  calling  sequences 
if  any.  In  the  description  it  is  assumed  that  the  user  is  familiar  with 
the  idea  of  using  a  SUBROUTINE  or  FUNCTION  routine  and  is  aware  of  the 
differences  between  FORTRAN  types  such  as  REAL*8,  REAL* 4 ,  L0GICAL*1,  etc. 

(3)  General  information:  covers  such  things  as  use  of  COHMON,  specification  of 
user  supplied  subroutines,  other  library  routines  called,  details  of  printed 
output,  etc. 

(4)  Method :  a  brief  description  of  the  method  used  or  a  reference  to  a  descrip¬ 
tion  of  the  method. 

(5)  Example :  an  example  of  the  use  of  the  subroutine. 

2.2  Problems  in  interpreting  write  ups 

The  lack  of  rigid  rules  in  respect  to  the  layout  and  presentation  of  the  informa¬ 
tion  contained  in  write  ups  does  sometimes  lead  to  misunderstanding.  Usually  the 
trouble  arises  from  the  conflict  between  the  variation  in  precision,  length  and  type 
of  the  FORTRAN  variables  used  on  the  IfW/360  and  trying  to  make  one  write  up  describe 
the  requirements  of  all  versions  of  the  routine.  The  following  sections  may  be  found 
useful  in  this  respect. 

2.3  Double  precision  and  other  versions 

The  use  of  double  and  single  length  versions  of  a  library  routine  are  often  so 
similar  that  it  is  a  practice  to  produce  only  one  write  up  which  is  used  to  serve 
both  versions.  The  write  up  will  be  written  in  terms  of  the  single  length  version 
and  it  is  assumed  that  the  user  can  deduce  what  is  required  for  the  double  length 
version. 

Recent  write  ups  give  at  the  top  right  hand  corner  of  the  first  page  the  names 
of  the  versions  covered  by  the  write  up  in  an  abbreviated  fora  using  the  '  /'  character 
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to  combine  the  names,  e.g.  write  up  MXOtA/AD/I  describes  the  three  routines 


MX01A  with  REAL*4  arguments 

MX01AD  with  REAL*8  arguments 

MX01I  with  It'fTEGER*4  arguments. 

When  a  write  up  is  fairly  old  and  gives  only  the  single  length  name  it  can  be  assumed 
that  a  double  length  version  exists  and  its  name  is  obtained,  in  the  case  of  a  FORTRAN 
routine,  by  adding  a  D  to  the  end  and,  in  the  case  of  an  assembler  routine,  replacing 
the  final  S  by  a  D.  Only  a  few  library  routines  have  no  double  length  version,  apart 
that  is  from  those  for  which  double  precision  is  not  appropriate. 

2.4  Argument  types 

For  write  ups  that  say  nothing  about  the  type  or  length  of  arguments,  usually 
pre-360  write  ups,  the  FORTRAN  implicit  convention  for  types  should  be  used,  i.e.  real 
variable  names  begin  with  letters  A  to  H  or  0  to  Z  and  integers  I  to  N.  In  more  recent 
write  ups  the  type  and  sometimes  the  length  are  stated.  Where  t’.e  length  is  omitted 
real  arguments  are  assumed  to  be  4  or  8  byte  reals  depending  on  whether  the  single  or 
double  length  version  is  being  used.  Integers  unless  otherwise  stated  are  always  4 
byte  integers. 

2.5  Obtaining  write  ups 

Write  ups  for  library  routines  are  contained  in  five  filing  cabinets  marked 
'Harwell  Subroutine  Library  Public  Files'  which  stand  in  the  computer  reception  area 
in  Building  8.12.  Users  are  invited  to  take  any  copies  required  or  if  it  is  difficult 
to  get  access  to  the  computer  building  request  computer  reception  to  send  them.  For 
requests  from  outside  Harwell  see  section  on  external  users. 

2.6  Write  up  queries 

If  a  user  has  difficulty  in  either  obtaining  or  understanding  a  write  up  the 
queries  facility  offered  by  the  library  should  be  used.  The  librarian  would  particu¬ 
larly  welcome  any  constructive  criticisms  or  comments  concerning  write  ups  so  that 
they  can  be  improved  and  mistakes  corrected. 

From  time  to  time  write  ups  are  modified  or  corrected  or  sometimes  completely 
re-written  and  these  changes  are  publicised  through  the  subroutine  library's  informa¬ 
tion  service,  see  section  4. 

For  a  user  who  does  not  keep  back  numbers  of  Harwell  subroutine  library  bulletins 
there  is  no  easy  way  to  find  out  whether  a  write  up  obtained  some  time  ago  is  still 
the  current  version.  It  is  hoped  sometime  in  the  future  to  record  the  date  when  a 
write  up  has  been  re-issued  in  a  computer  generated  index.  Meanwhile  it  would  be 
appreciated  if  before  notifying  us  of  any  errors  in  a  write  up  a  check  is  made  to 
see  if  it  is  the  most  up-to-date  version. 

Using  library  subroutines  in  programs 

3. 1  How  to  get  hold  of  the  routines 

To  use  a  library  routine  in  a  program  first  obtain  a  write  up,  code  the  call  to 
the  routine  into  your  program  setting  the  arguments  as  specified  in  the  write  up  and 


then  run  the  program.  Compiled  versions  of  the  subroutines  being  called  will  auto¬ 
matically  be  included  into  your  program  by  the  Linkage  Editor,  or  Fast  Loader  depending 
on  which  Job  Control  Language  procedure  you  are  using. 

The  subroutines  are  fetched  from  a  library  (p.d.s.  data  set)  called  HAR.LIB  which 
contains  compiled  versions  of  all  the  routines  in  the  Harwell  Subroutine  Library. 
HAR.LIB  is  normally  joined  with  the  IHd  FORTRAN  library,  i.e.  the  one  which  contains 
routines  such  as  EXP,  SQRT,  under  the  DD  name  SYSLIB.  If  the  user's  program  is  to  be 
stored  permanently  on  disk  for  future  use  routines  from  these  two  libraries  can  be 
optionally  omitted  from  the  stored  program  by  specifying  the  Linkage  Editor  option 
NCAL,  see  Harwell  Users  Manual  for  details. 

3.2  What  to  do  if  trouble  occurs 

It  may  happen  that  during  the  course  of  developing  a  program  which  uses  library 
routines  an  interrupt  occurs  due  to  an  abnormal  condition  and  that  at  the  time  of  the 
interrupt  one  of  the  library  routines  had  control.  It  is  always  tempting  to  suspect 
the  library  routine  because  it  is  the  unknown  quantity. 

On  the  whole  library  routines  tend  to  be  well  tried  and  tested,  by  the  mere  fact 
that  they  are  used  a  lot,  and  in  our  experience  in  over  90  per  cent  of  the  queries 
concerning  the  malfunctioning  of  library  routines  it  turns  out  to  be  the  calling 
program  which  was  in  error.  If  you  have  trouble  come  and  see  us  but  we  do  ask  that 
you  make  reasonably  sure  before  coming  to  us  that  the  error  is  associated  with  a 
library  routine  and  you  bring  along  plenty  of  evidence,  a  print  out  of  the  argument 
values  before  entry  is  always  useful. 

4.  Library  information  facilities 

4. 1  General  queries 

General  queries  concerning  library  routines  should  be  directed  to  Mr.  S.  Marlow, 
Building  8.9,  Ext.  2930. 

4.2  Computer  generated  index 

A  list  of  names  of  all  the  routines  in  the  library  is  kept  on  disk  for  access  by 
computer.  Each  entry  in  the  list  consists  of  a  sentence  or  two  describing  the  purpose 
of  the  routine.  It  is  kept  fairly  up  to  datr>  and  users  may  for  this  reason  still  find 
it  useful. 

There  is  usually  a  copy  of  the  index  on  the  general  notice  board  in  the  computer 
reception  area  which  may  be  referred  to  but  should  not  be  taken  away.  You  may  obtain 
your  own  copy  by  running  a  job  on  the  computer  using  the  procedure  HARSLX.  The 
following 

//  user's  JOB  card 

//  EXEC  HARSLX 

will  produce  a  listing  of  the  library  index.  The  job  can  be  run  in  20K. 

4.3  Day  to  day  information  files 

The  most  up  to  date  information  on  library  changes  is  kept  in  four  HUW  files  in 
the  library's  line  file  library,  identifier  HSL.  The  four  files  are 
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AD- A 092  033 


UNCLASSIFIED 


2or  2 

ftp  4  .  , 


aTOMZC  ENERGY  RESEARCH  ESTABLISHMENT  HARWELL  (ENGLAND)  F/G  12/1 

HARWELL  SUBROUTINE  LIBRARY.  A  CATAL06UE  OF  SUBROUTINES  (1973) »  (U) 
jUL  73  MU  HOPPER 

aERE-R-7477  NL 


HSLS  -  lists  new  routines  recently  put  in  the  library,  giving  purpose  and  date  of 
update  into  the  library. 

HSLM  -  lists  the  routines  that  have  been  modified  or  corrected  and  may  include  reports 
of  uncorrected  errors,  although  this  is  not  often  as  errors  are  usually  put 
right  immediately.  Each  entry  will  give  the  reason  for  the  modification  and 
date  of  update  into  the  library. 

HSLW  -  gives  a  list  of  new  and  modified  write  ups  with  the  date  when  they  were  put 
into  the  public  filing  cabinets  for  general  use. 

HSLP  -  a  promised  list  of  routines,  that  is  routines  currently  being  written  and  will 
be  going  into  the  library  in  a  short  time.  The  name  of  the  author  and  exten¬ 
sion  number  is  usually  given  to  allow  a  potential  user  of  the  routine  to 
contact  the  author  to  discuss  special  problems. 

The  lists  cover  a  period  of  about  3  months  and  are  ordered  so  that  the  most 
recent  changes  come  first,  just  like  the  TODAY  file  run  by  the  central  computer  group. 
To  examine  the  files  just  to  see  the  latest  changes  you  should  copy  the  relevant  file 
into  your  own  line  file  library,  examine  it  pressing  the  attention  key  when  you  have 
seen  enough,  and  finally  destroying  it,  eg.  to  see  what  new  routines  have  been  put  in 
the  library 

COPY  HSLS  HSLS  HSL 
EX  HSLS 

To  make  a  more  permanent  copy  a  macro  called  MNEWS  can  be  used.  This  is  also 
kept  in  HSL  and  must  be  copied  over  before  it  can  be  used.  MNEWS  when  used  with  no 
parameters  specified  will  type  out  all  four  files  in  a  paged  form  suitable  for  pinning 
on  a  notice  board.  The  pages  are  designed  to  be  stapled  together  at  the  top  and  are 
of  different  length  so  that  each  section  projects  be lew  the  other  for  easy  reference. 
Note  that  before  using  MNEWS  all  four  files  must  be  copied  over  into  your  file  library. 
MNEWS  can  be  used  to  list  just  one  of  the  files  at  a  time  by  specifying  the  file  name 
of  the  file  to  be  listed  as  a  parameter,  eg.  to  list  the  file  HSIM 

COPY  MNEWS  MNEWS  HSL 
COPY  HSIM  HSIM  HSL 
MNEWS  HSIM 

4.4  The  library  news  sheet 

The  macro  MNEWS  is  used  by  us  to  produce  a  news  sheet  which  consists  of  the  four 
files  HSLS,  HSIM,  HSLW  and  HSLP.  Copies  of  the  news  sheet  are  put  on  the  notice  boards 
sited  at  the  collection  points  around  the  Harwell  establishment.  They  are  sent  out 
every  two  or  three  weeks  or  when  sufficient  changes  have  been  made  to  warrant  the 
effort. 

4.5  The  library  status  index 

The  library  has  a  program,  which  it  uses  for  maintenance  purposes,  which  will  scan 
through  the  source  and  load  module  libraries  and  produce  a  list  of  certain  status 
information  pertinent  to  each  routine.  Each  entry  in  the  list  of  routines  will  give 
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Date  of  update  into  source  library. 

Date  of  update  into  load  module  library  (compiled  versions). 

Number  of  cards  in  source  deck. 

Size  of  compiled  routine  in  bytes. 

Language  and  compiler. 

Names  of  private  routines  and  COfiMDN  areas  integrated  with  routine. 

Entry  point  names. 

External  references,  names  of  routines  called  by  the  routine. 

Names  of  all  library  routines  required  to  be  loaded  with  the  routine. 

Names  of  all  routines  in  the  library  which  call  this  routine. 

A  copy  of  this  status  index  can  usually  be  found  on  the  general  notice  board  in 
the  computer  reception  area.  It  is  not  run  off  very  often  and  the  list  on  the  notice 
board  may  be  several  weeks  out  of  date.  The  program  is  not  generally  available  but 
any  user  sufficiently  interested  should  ask  us  for  the  JCL  details.  It  can  be  used 
on  any  load  module  library. 

4.6  The  library  bulletin 

This  is  used  to  publicise  subroutine  library  news.  It  is  produced  approximately 
every  three  or  four  months  and  gives  details  of  new  routines  introduced  in  the  period 
covered.  It  gives  news  of  changes  to  routines  and  write  ups,  errors,  proposed  dele¬ 
tions  and  promised  routines.  The  bulletin  is  also  used  to  publicise  policy  changes 
and  discusses  the  effect  on  the  library  of  changes  to  the  computer  hardware  or  the 
computer  operating  system.  Contributions  by  nonlibrary  staff  are  always  welcome, 
particularly  if  they  are  concerned  with  comparisons  carried  out  between  routines  or 
describe  difficulties  experienced  with  routines. 

4.7  S unwary  of  information  sources 


The  following  list  summarizes  the  various  sources  of  library  information  and 
gives  the  approximate  frequency  with  which  they  are  updated  or  circulated. 

(a)  HUW  files,  see  4.3,  (within  hours  of  the  change  being  made). 

(b)  the  subroutine  library  notice  board  in  computer  reception  area,  displays  lists 
of  the  four  HIM  files  (within  same  as  (a)). 

(c)  news  sheet  on  notice  boards  at  collection  points,  see  4.4  (1-4  weeks). 

(d)  computer  generated  index,  see  4.2  (2  months). 

(e)  bulletin,  see  4.6  (3-6  months). 

(f)  supplements  to  this  library  catalogue  (4-6  months). 

(g)  this  catalogue  of  subroutines  (2  years). 

(h)  status  index,  copy  on  notice  board,  see  4.5  (2-4  months). 

5.  Obtaining  copies  of  library  routines  in  source  form 

In  exceptional  circumstances  a  user  may  require  a  copy  of  a  library  routine  in  source 
form  either  as  a  listing  produced  on  the  line  printer,  a  card  deck  or  as  a  file  in  HUW  the 
Harwell  teletype  system.  A  complete  copy  of  the  library  in  source  form  is  kept  on  a 


magnetic  tape  which  is  always  kept  at  hand  in  the  computer  room  for  the  operators  to  mount 
when  requested. 


5.1  Listings  and  card  decks 

To  obtain  copies  of  routines  from  the  tape  a  user  must  run  a  job  using  the  cata¬ 
logued  procedure  HARSLS.  This  procedure  allows  the  user  to  obtain  listings  and  card 
decks  which  may  be  punched  in  either  EBCDIC  or  BCD  code.  Other  options  are  available 
for  specifying  sequence  numbering,  changing  output  stream  number*  nd  specifying  the 
line  count  for  paging. 

The  statements  required  to  run  the  basic  form  of  the  procuedure,  i.e.  with  options 
defaulted  (details  of  defaults  further  on),  are  as  follows 

//  user's  job  card. . . ,REGI0N=90K 
//  EXEC  HARSLS 
//SYSIN  DO  * 

control  cards  as  described  below 

/* 

The  control  cards  must  be  of  the  following  form 
♦keyword ,name 1 ( n 1 ) ,name2( n2) , . . . . etc. 

The  character  must  be  in  column  one  of  the  control  card  and  the  rest  following 
with  no  embedded  blanks,  no  continuation  of  cards  is  allowed.  The  keyword  can  be 
any  one  of  the  following 

LIST  for  listings  on  the  line  printer. 

PUNCHE  for  EBCDIC  card  decks  (and  listings). 

PUTCHB  for  BCD  card  decks  (and  listings). 

namel tname2, . . . ,etc.  are  the  names  of  the  library  routines  required  and  the  numbers 
n1,n2,..  in  parenthesis  should  specify  the  number  of  copies  required.  If  the  paren¬ 
thesis  and  numbers  are  omitted  only  one  copy  is  assumed. 

Restriction ;  Not  more  than  50  names  nay  be  specified  all  told  and  the  number  of 
copies  given  in  parenthesis  is  restricted  to  a  maximum  of  10. 

Example ;  the  following 

//  job  card 
//  EXEC  HARSLS 
//SYSIN  DD  * 

♦LIST, FAO IAS ,KB01A( 3) ,VA05AD 
♦PUNCHE  ,MA14A 

/* 

would  produce  one  listing  each  of  FAO IAS  and  VA05AD  with  3  listings  of  KB01A  and  a 
card  deck  punched  in  EBCDIC  code  with  a  listing  of  MA14A. 

HARSLS  is  a  magnetic  tape  Job  and  must  be  run  as  such.  The  tape  can  be  referred 
to  as  the  HARWELL  SUBROUTINE  LIBRARY  SOURCE  TAPE  or  just  H.S.L.  SOURCE  TAPE  and  must 
be  READ  only  and  file  protected.  Users  are  referred  to  the  Harwell  User's  Manual  for 
job  card  and  operator  instructions  relevant  to  running  a  job  which  uses  magnetic  tape, 
produces  card  output  and  many  lines  of  printer  output. 
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The  procedure  offers  some  additional  options  which  are  requested  through  the  PARM 
field  of  the  EXEC  card.  The  following  are  currently  available. 


PRINT=n 


PUNCH=n 


LINECNT=n 

NOSEQL 

NOSEQP 


INC=n 

NOLET 


SPOOL=n 


specifies  the  FORTRAN  stream  nuntoer  which  is  to  be  used  for  listings, 
default  n=6. 

specifies  the  FORTRAN  stream  number  which  is  to  be  used  for  punching 
card  output,  default  n=7. 

specifies  the  number  of  lines  per  page  for  listings,  default  n=42. 

specifies  that  no  line  numbers  are  to  be  printed  on  the  listings, 
if  NOSEQL  is  omitted  line  numbers  are  printed. 

specifies  that  no  sequence  numbers  are  to  be  punched  on  card  output, 
if  NOSEQP  is  omitted  sequence  numbers  are  punched  in  columns  73-80  of 
each  card. 

specifies  the  increment  to  be  used  for  sequence  numbering  punched  card 
output,  default  n=1. 

specifies  that  if  any  control  card  errors  were  detected  the  job  is  to 
be  terminated  (all  cards  are  scanned  for  errors  first).  If  NOLET  is 
omitted  the  program  will  ignore  all  the  requests  on  any  control  card 
found  to  contain  errors  but  will  continue  to  retrieve  routines 
requested  on  control  cards  free  from  errors. 

controls  whether  the  program  spools  the  routines  from  tape  to  disk 
before  producing  the  required  number  of  copies.  If  more  than  n  copies 
of  the  routine  are  requested  it  is  spooled  to  disk  first.  Default  rt=1. 


Example  of  specifying  options :  the  following  statements 
//  job  card 

//  EXEC  HARSLS,PARM=’ INC=100,LINBCNT =60, NOSEQL' 

//SYSIN  DO  * 

*PUNCHE , PD02A 

/* 

would  produce  a  card  deck  of  PD02A  with  sequence  numbers  punched  in  columns  73-80 
starting  100,200,300,. .., etc.  and  a  list  of  the  routine  with  no  line  numbers  printed 
and  page  throws  every  60  lines. 


5.2  I  EM  Scientific  Subroutine  Package:  SSP 

A  copy  of  the  I  EM  SSP  library  is  held  on  magnetic  tape  and  the  procedure  HARSLS 
can  be  used  to  obtain  listings  and  card  decks.  To  use  HARSLS  for  this  purpose  you  must 

(i)  punch  LIB=SSP  on  the  EXEC  card,  e.g. 

//EXEC  HARSLS, LIB=SSP,PARM='....' 

(ii)  refer  to  the  tape  in  operator  instructions  as  the  SSP  LIBRARY  SOURCE  TAPE. 

To  use  the  SSP  routines  in  a  program  you  must  first  obtain  a  source  deck  and 
include  it  in  your  program.  The  SSP  library  is  not  available  on  the  system  in 
compiled  form  (as  a  load  module  library).  It  is  not  possible  for  Harwell  Subroutine 
Library  staff  to  deal  with  queries  concerning  the  internals  of  SSP  routines  and  we 
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take  no  responsibility  for  the  proper  working  of  the  routines. 

The  current  version  of  the  library  on  tape  is  equivalent  to  version  III  mod  1 
except  for  the  sample  program  packages  DASCR , REG RE , STEPR ,MCANO , FACTO , POLRG  and  KOLM 
which  are  still  version  III  mod  0.  A  list  of  routines  available  is  given  in  the  IBM 
document  'H20-0166-5  SYSTEM/ 360  Scientific  Subroutine  Package  Version  III;  Applica¬ 
tion  description' .  A  more  detailed  list  including  listings  of  the  routines  and  write 
ups  is  given  in  'H20-0205-3  SYSTEM/360  Scientific  Subroutine  Package,  Version  III; 
Programmer' s  Manual'.  Copies  of  these  can  be  seen  in  the  information  room  Building 
8.12  and  the  Mathematics  Library  in  Building  8.9,  room  G.16. 

5.3  Obtaining  library  routines  as  HUW  files 

A  library  routine  can  be  put  into  a  user' s  line  files  by  means  of  a  HUW  macro 
called  MHARSLS.  The  macro  will  construct  and  run  a  JCL  file  in  the  user's  line  file 
to  copy  over  the  routine.  The  user  supplies  the  name  of  the  subroutine  required,  only 
one  name  is  allowed,  and  a  copy  of  the  routine  is  put  into  as  many  files  needed  to 
contain  it,  up  to  a  maximum  of  4.  The  name  of  the  first  file  created  will  be  that  of 
the  subroutine  itself  and  subsequent  files  will  have  the  same  name  but  with  the  digits 

1.2.3  added  to  the  end.  The  files  will  have  a  file  type  of  U  and  it  is  up  to  the  user 
to  change  the  type  using  the  FILETYPE  command. 

As  the  card  output  facility  of  HARSLS  is  used  the  first  line  of  the  first  file 
generated  will  be  a  HARSLS  header  card  for  punched  output.  This  is  copied  as  a 
comment  card  and  gives  the  date  the  routine  was  last  put  onto  the  tape,  this  may  be 
useful  to  you,  delete  if  not  required. 

In  addition  to  the  line  file  output  a  normal  HARSLS  line  printer  listing  is 
produced  which  should  be  consulted  in  the  event  of  failure,  i.e.  when  the  routine 
requested  is  not  found  on  the  tape. 

5.4  To  run  the  macro  MHARSLS 

The  macro  is  kept  on  the  line  file  with  identifier  HUW  and  must  be  first  copied 
into  the  user's  line  file.  The  statement 

COPY  MHARSLS  MHARSLS  HUW 

will  do  this.  It  takes  up  about  2  blocks  and  a  further  2  blocks  will  be  taken  by 
the  JCL  file  called  HUWSLS  which  it  generates.  To  use  the  macro  type  in 

MHARSLS  name ,SSP,NOCOMS 

where  SSP  and  NOCOMS  can  be  omitted. 

name  is  the  name  of  the  library  routine  required. 

SSP  is  coded  if  the  routine  is  in  the  IBM  SSP  library.  If  omitted  the  Harwell 

Subroutine  Library  is  assumed. 


NOCCMS 


Is  coded  if  comment  cards  in  the  routine  are  not  to  be  copied  across.  The 
option  is  useful  when  line  file  space  is  short  and  is  particularly  needed 
for  SSP  routines  which  tend  to  contain  rather  a  high  proportion  of  comnent 


B.  Data  fitting  and  approximation 

1.  Introduction 

We  consider  the  problem  of  calculating  a  function  f(t)  to  fit  some  data,  or  for  use 
in  subsequent  computer  calculations. 

In  the  data  fitting  problem  we  are  given  a  number  of  measurements, 

(i=1 ,2,. . . ,m)  say,  where  y^  is  the  measured  value  of  the  function  at  the  point  tif  and 
we  wish  to  calculate  a  function  f(t)  such  that  the  differences  fy^-f(t^)}  are  small  for 
all  values  of  i.  For  example  for  physical  reasons  we  may  want  f(t)  to  have  the  form  aebt 
where  a  and  b  are  parameters,  and  in  this  case  we  may  calculate  the  values  of  a  and  b  to 
minimize  the  expression 

m 

^  fy.-ae  i}2.  (1) 

i=t 

In  the  approximation  problem  we  are  given  a  function  y(t),  specified  perhaps  by  a 
computer  subroutine,  and  we  wish  to  calculate  another  function,  f(t),  that  is  close  to 
y(t)  and  that  is  especially  suitable  for  computer  calculation.  For  example  it  may  take 
one  minute  to  calculate  a  value  of  y(t),  but  we  may  be  able  to  find  a  sufficiently 
accurate  approximation  f(t),  whose  values  take  only  a  few  milliseconds  to  compute,  and 
therefore  it  would  save  computer  time  to  use  f(t)  in  place  of  y(t)  in  any  subsequent 
calculations. 

In  a  data  fitting  or  approximation  problem  we  mist  decide  on  the  form  of  f(t),  which 
is  discussed  in  Section  2.  Also  we  mist  decide  on  how  we  will  measure  the  goodness  of 
an  approximation  f(t)  to  y(t),  and  this  matter  is  discussed  in  Section  3.  Then  in 
Section  4  we  summarise  the  numerical  methods  that  are  held  in  the  Harwell  subroutine 
library  for  data  fitting  and  for  approximation. 

2.  The  choice  of  f(t) 

Frequently  one  lets  f(t)  be  a  polynomial 

n 

f(t)  =  ajtJ  •  (2) 

j=0 

where  the  degree  is  prescribed,  and  where  the  values  of  the  coefficients  a^  have  to  be 
calculated.  However  it  is  often  better  to  let  f(t)  be  the  ratio  of  two  polynomials 

n  n’ 

f(t)  =^T  «jtJ  .  ( 3) 

j=0  j=0 

where  now  n  and  n'  are  given.  This  case  is  called  "rational  approximation",  and  it  is 
especially  efficient  when  the  function  to  be  approximated,  y(t),  is  analytic.  However 
if  y(t)  has  many  peaks,  then  it  is  usually  worthwhile  to  divide  the  range  of  t  into 
pieces,  and  this  can  be  achieved  automatically  by  letting  f(t)  be  a  "cubic  spline  func¬ 
tion",  which  is  a  function  that  is  composed  of  cubic  polynomial  pieces,  joined  so  that 
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the  function  is  continuous  and  has  continuous  first  and  second  derivatives.  The  use  of 
cubic  splines  is  recommended,  because  we  have  a  number  of  subroutines  for  calculating 
them. 

For  all  these  forms  of  f(t)  we  have  to  calculate  the  values  of  parameters  like 

a.(j=0,1 . n)  in  expression  (2),  and  it  is  feasible  to  let  f(t)  have  many  forms  that 

depend  on  parameters.  A  quite  general  and  very  useful  form  is 

n 

f(t)  =y  ^  ^(t)  (4) 

j=0 

where  the  functions  0j(t)  are  prescribed.  Sometimes  these  functions  are  suggested  by 

knowledge  of  the  application,  and  sometimes  they  are  guessed.  For  example  if  t  denotes 

a  vector  of  two  variables,  (t  ,t  )  say,  then  it  may  be  convenient  to  try  the  approxima- 

x  y 

tion 


2  2 

f(t)  =  a^+a.t  +a.t  +a,t  +a.t  +a.t  t 
0  1x2y3x  4  y  5xy 


(5) 


Note  that  in  expression  (4)  the  parameters  a ^  occur  linearly,  and  in  this  case  we  say  we 
have  a  "linear  approximation  problem".  The  solution  of  linear  problems  is  usually 
straightforward. 

The  general  approximation  problem  occurs  when 


f(t)  —  f ( t ,a j ,a^ , . . . ,a^)  ,  (6) 

and  this  equation  states  that  f(t)  depends  in  a  general  way  on  the  parameters 

(a  ( ,a2>. . .  .a^) .  For  example  in  equation  (1)  the  approximating  function  is  aebt,  so 

it  is  the  case 

a2t 

f(t,af  ,a2)  =  ate  .  (7) 

We  do  have  subroutines  that  calculate  the  required  values  of  the  parameters  (a^  ,a2>...  ,an) 
in  the  general  case,  but  these  calculations  are  less  sure  than  in  the  linear  case. 

3.  The  error  of  the  approximation 

Having  chosen  a  function  f(t,a.|  ,a2,...  »an),  we  must  calculate  values  for  the 
parameters  (a] ,a2». . . ,an) ,  so  we  require  a  criterion  to  fix  the  best  values  of  the 
parameters.  Frequently,  especially  in  data  fitting  problems,  we  minimize  the  sum  of 
squares  or  the  errors,  in  which  case  we  require  the  values  of  (a 1 ,a2,... .a^)  that 
give  the  least  value  of  the  expression 

m 

y  |y^  “  »a2'***'an^  *  (8) 

i=t 

for  example  expression  (1).  However  instead  of  minimising  this  expression  one  may  prefer 
to  minimize 


i 
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(9) 


max  |yi  -  . an)j 

i= 1 ,2, • . •  ,m 

or 

m 

^  |yA  ~  *'^i,ai,a2,’**,an^  I  *  ^ '^) 

i=1 

We  prefer  expression  (9)  when  we  require  to  make  the  largest  difference 
|Yi  -  f(t.,alta2,...,an)|  as  small  as  possible,  and  it  is  often  worthwhile  to  use 
expression  (10)  if  it  is  possible  that  just  a  few  of  the  data  errors  are  very  large. 

But  usually  expression  (8)  is  preferred,  perhaps  with  some  prescribed  positive  weights 
(Wj ,w2,... ,wm) ,  in  which  case  the  expression  that  is  minimized  is 

m 

^  KJyi  ~  f(ti»a,*a2.**"an)^l2  •  (11) 

i=1 

In  a  similar  way  weights  can  be  included  with  expressions  (9)  and  (10). 

Usually  the  different  choices  (8),  (9)  and  (10)  lead  to  different  methods  of  calcula¬ 
tion  for  obtaining  the  parameters  (a1,a2,...fa  ),  and  as  a  general  rule  expression  (8)  is 
the  easiest  to  use.  One  exception  is  that  if  a  rational  approximation  (3)  is  required, 
then  expression  (9)  is  the  easiest.  In  practice  one  should  often  minimize  the  expression 
that  gives  the  easiest  calculation,  because  although  the  calculated  approximation  will 
depend  on  the  function  that  is  minimized,  the  differences  in  these  approximations  are 
frequently  unimportant. 

So  far  the  remarks  of  this  section  concern  data  fitting,  for  the  situation  is  a  little 
different  when  one  wishes  to  approximate  a  given  mathematical  function.  In  this  case  the 
function  y(t)  may  be  defined  over  an  interval,  say  0<  t<  1,  and  then  the  analogue  of 
expression  (9),  for  instance,  is  the  expression 

max  |y(t)  -  f(t,a  ,a  ,...,a  )|  .  (12) 

0  <  t  <  1  '  1  n 

There  are  some  subroutines  for  minimizing  expressions  like  the  one  above,  and  then  y(t) 
must  be  specified  by  a  computer  subroutine. 

Another  common  method  of  function  approximation  is  interpolation.  Here  one  calcu¬ 
lates  just  enough  values  of  y(t),  say  y(t(),  y(t2),. . . ,y( tm) ,  to  determine  the  parameters 
of  f(t)  by  satisfying  the  equations 

y(tA)  =  f(tA),  i=1,2,...,m.  (13) 

Of  course  if  f ( t)  has  the  form  (6)  then  im=n.  This  method  is  unsuitable  for  data  fitting 
because  there  is  no  smoothing  of  data  errors. 

Another  disadvantage  of  interpolation  is  that  the  choice  of  points  (t, ,t„, . . .  ,t  ) 

1  z  m 

can  be  critical.  It  is  therefore  more  satisfactory  from  the  point  of  view  of  robustness 
let  m  exceed  the  number  of  parameters,  and  to  minimize  say  the  sum  of  squares  (8). 
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4.  The  subroutines  of  the  Harwell  library 

For  the  interpolation  problem  (13),  the  following  subroutines  are  available.  When 
f(t)  is  a  polynomial  then  either  its  coefficients  can  be  calculated  by  subroutine  PC02, 
or  the  value  of  f(t)  for  a  single  value  of  t  can  be  calculated  by  subroutine  TB02.  When 
f(t)  is  a  cubic  spline  function  then  use  TB04  or  TB05  depending  on  whether  f(t)  is  to 
be  periodic.  Both  these  routines  place  the  knots  of  the  spline  at  the  interpolation 
points.  When  f(t)  is  a  more  general  function  of  the  form  (4),  then  the  equations  (13) 
give  a  system  of  simultaneous  linear  equations  for  the  required  parameters  a^,  which  can 
be  solved  by  subroutine  MA21.  When  f(t)  has  the  general  form  (6),  then  the  equations  (13) 
may  be  non-linear,  in  which  case  subroutine  NS01  is  recommended.  However  if  f(t)  is  a 
rational  function  (3),  then  a  direct  method  for  calculating  its  coefficients  from  equation 
(13)  is  known,  but  it  is  not  held  at  present  in  the  Harwell  subroutine  library. 

The  other  subroutines  that  are  useful  for  data  fitting  and  approximation  when  f(t) 
is  a  polynomial  are  as  follows.  To  minimize  expression  (9)  use  PE  11,  and  to  minimize 
expression  (8)  or  (11)  use  VC01,  except  that  VC04  is  available  for  least  squares  fitting 
by  a  straight  line.  In  fact  to  maintain  numerical  accuracy  subroutine  VCOI  defines  f(t) 
in  terms  of  orthogonal  polynomials,  and  to  find  the  actual  coefficients  of  f(t)  one  may 
call  PE08  after  using  VCOI.  Instead  it  is  usually  more  accurate  to  use  PE07  after  VCOI, 
but  this  subroutine  only  calculates  the  value  of  f(t)  for  any  given  value  of  t. 

When  f(t)  is  a  rational  function  (3),  then  subroutines  PE04  and  PE05  are  available. 
PE04  minimizes  expression  (12),  and  PE05  minimizes  expression  ( 1 2)  including  a  weight 
function.  Note  that  the  range  of  t  is  now  an  interval,  and  therefore  the  user  must 
provide  a  subroutine  to  calculate  y(t). 

In  addition  to  the  routines  for  interpolating  a  cubic  spline  function,  the  following 
routines  are  also  available  for  the  case  when  f(t)  is  a  cubic  spline.  VB05  minimizes 
expression  (8),  and  VB06  minimizes  expression  (8)  plus  a  smoothing  term,  the  purpose  of 
this  smoothing  term  being  to  damp  the  effect  of  data  errors.  Also  there  is  a  subroutine 
called  VC03  that  is  more  sophisticated  than  any  of  the  routines  mentioned  already,  for 
it  automatically  assigns  the  number  and  the  joins  of  the  cubic  polynomial  pieces  of  f(t). 
Here  the  intention  is  to  take  account  of  all  the  trends  of  the  data,  without  following 
data  errors.  Finally  there  is  a  spline  routine  called  TSOI  that  also  assigns  the  poly¬ 
nomial  pieces  automatically.  This  routine  is  intended  for  the  case  when  y(t)  is  a 
mathematical  function,  specified  by  a  computer  subroutine,  and  it  aims  to  calculate 
f(t)  so  that  throughout  the  range  of  t  the  difference  |f(t)  -  y(t)|  is  less  than  a 
prescribed  tolerance. 

In  addition  to  the  special  purpose  routines  mentioned  above,  some  of  the  general 
algorithms  of  the  Harwell  library  can  be  used  when  the  form  of  f(t)  is  more  general.  In 
particular  we  have  stated  already  that  the  linear  form  (4)  is  quite  manageable.  In  this 
case  the  function  (8)  can  be  minimized  by  MA14,  the  function  (9)  by  MAI1,  and  the  func¬ 
tion  (  10)  by  MA20.  Also  subroutine  MA09  is  available  for  the  least  squares  problem,  but 
usually  MAH  is  more  accurate. 


Finally  there  is  the  case  (6)  when  f(t)  depends  in  a  general  way  on  the  parameters 
(®1  *a2f  •  •  »an)»  Sometimes  the  form  of  this  dependence  can  be  exploited,  and  specially 


efficient  subroutines  can  be  written,  for  example  for  fitting  sums  of  exponentials  the 
subroutine  \C05  is  available.  However  usually  a  special  routine  is  not  available,  and 
then  it  is  necessary  to  calculate  the  function,  like  expression  (8),  (9)  or  (to),  which 
is  to  be  minimized  to  define  (a^.a^ ...,an),  and  to  use  a  general  routine  for  unconstrained 
minimization.  Therefore  the  reader  is  referred  to  section  C  on  methods  for  optimization. 

In  particular  note  that  the  minimization  of  a  sum  of  squares  is  relatively  easy,  so,  unless 
there  is  an  excellent  reason  for  doing  something  different,  one  should  prefer  to  calculate 
(a1,a2,...,an)  by  minimizing  expression  (8).  The  most  reliable  subroutines  for  minimizing 
a  sum  of  squares  are  VAOS,  VA07  and  VB01.  It  is  awkward  to  minimize  expressions  (9)  and 
(10)  by  general  methods,  because  they  have  discontinuous  derivatives.  Therefore  we  hope 
to  provide  some  subroutines  that  are  designed  for  these  calculations. 
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1.  Introduction 


In  this  section  the  use  of  subroutines  which  deal  with  problems  related  to  optimiza¬ 
tion  will  be  described.  These  subroutines  appear  mostly  in  group  V,  but  there  are  also 
subroutines  from  groups  L,  M  and  N.  The  ultimate  aim  of  this  section  is  to  give  a 
"flow  diagram"  whereby  users  can  determine  whether  there  is  a  suitable  program  in  the 
library  for  their  particular  problem,  if  so  which  it  is,  and  if  not,  what  action  should 
be  taken.  Some  general  points  however  will  first  be  made. 


A  flow  diagram  of  the  type  presented  below  is  necessarily  crude  and  does  not  take 
into  account  any  special  knowledge  which  the  user  might  have.  When  possible,  this 
special  knowledge  should  be  used  to  as  large  an  extent  as  possible  in  formulating  the 
problem,  and  in  choosing  a  subroutine.  Users  are  also  expected  to  pose  their  problems 
with  care,  giving  attention  to  such  problems  as  scaling  of  variables  and  avoidance  of 
cancellation,  which  can  be  of  crucial  importance.  It  is  also  wise  that  any  formula  for 
evaluating  derivatives  should  first  be  checked  by  differences  in  function  values.  We 
are  always  keen  to  ensure  the  best  use  of  library  subroutines,  so  that  any  Harwell  user 
who  is  in  doubt  on  any  of  these  points  should  seek  advice  from  a  member  of  the  Numerical 
Analysis  Group. 


The  problem  under  consideration  will  in  general  terms  be  assum3d  to  be  that  of 
minimizing  a  function  F(x)  of  many  variables  x  =  (x  ,x  ,...,x  ).  In  addition  the  values 

iv  m  i  £  n 

of  x  which  are  allowed  might  be  restricted  in  that  they  have  to  satisfy  equations  like 
c.(x)  =  0  or  >  0.  Such  expressions  are  referred  to  as  constraints,  and  a  number  of 

1  IV 

constraint,  functions  are  referred  to  collectively  as  the  vector  c(x).  It  will  be  assumed 
that  F  and  c  are  differentiable,  if  not,  seek  advice.  In  what  follows,  the  concept  of 
functions  which  are  linear  in  x  is  important,  and  in  particular  f(x)  is  linear  in  x  if 
it  can  be  expressed  as  f(x)  =  2a. x.  +  b,  where  a.  and  b  are  independent  of  x.  The  problem 
stated  in  these  general  terms  is  not  conveniently  solved  by  a  single  algorithm,  so  the 
choice  of  algorithm  is  determined  by  the  more  detailed  structure  of  the  problem,  and  by 
what  information  about  the  problem  is  available. 

It  is  often  possible  to  simplify  a  formulation,  and  three  devices  in  connection  with 
this  will  be  described.  One  is  that  linear  equality  constraints  in  the  formulation  can 
sometimes  be  used  to  eliminate  variables.  This  can  also  be  done  with  sparse  non-linear 
equality  constraints  in  some  circumstances.  Another  device  is  that  some  constraints  can 
be  removed  by  making  a  non-linear  transformation  of  variables.  Typically  a  variable  x 
subject  to  a  constraint  x  >  0  can  be  removed  by  transforming  to  the  variable  y  =  log  x. 
When  minimizing  with  respect  to  y,  the  constraint  x  >  0  will  automatically  be  imposed. 
Further  possibilities  are  outlined  in  M.J.  Box,  D.  Davies  and  W.H.  Swann,  "Non-linear 
Optimization  Techniques"  ICI  Monograph  No.  5,  Oliver  and  Boyd,  London  (1969).  Finally 
in  certain  sums  of  squares  problems,  where 


i=1 
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it  often  happens  that  the  residuals  f  are  linear  in  some  of  the  variables,  and  this  can 
be  taken  into  account  when  posing  the  problem.  The  variables  supplied  to  the  optimization 
device  should  be  the  non-linear  variables,  because  every  time  that  f  must  be  calculated, 
the  linear  variables  can  first  be  found  by  a  linear  least  squares  calculation.  Care  should 
be  taken  when  evaluating  derivatives  in  the  modified  formulation. 

Wnen  considering  choosing  an  algorithm,  users  are  advised  to  evaluate  first  deriva¬ 
tives  of  their  objective  functions  if  at  all  possible.  Subroutines  using  derivatives  are 
much  more  efficient,  and  very  reliable  whereas  subroutines  not  using  derivatives  fail  more 
often  than  is  desirable,  and  are  also  affected  much  more  seriously  by  bad  scaling  or  undue 
cancellation.  The  evaluation  of  second  derivatives  is  much  less  desirable,  and  in  fact 
only  one  subroutine  for  minimization  of  a  general  function  which  use  such  information  in 
the  most  efficient  way  is  available  in  the  library.  In  this  and  a  number  of  other  cases, 
there  are  a  number  of  well  tried  methods  which  do  not  appear  in  the  library,  but  which 
might  be  included  if  need  arose.  Such  possibilities  are  indicated  in  the  flow  diagram. 

When  following  the  flow  diagram,  users  will  either  be  advised  to  use  a  particular  sub¬ 
routine,  or  will  be  recommended  to  seek  further  guidance  under  one  of  the  headings  ?,  ??, 
or  ???.  These  mean  roughly  as  follows 

?  There  is  no  method  in  the  library,  but  one  could  be  added  readily,  if  effort 
were  available.  Users  are  advised  to  contact  the  subroutine  1  ibrarian  to  see 
what  can  be  done. 

77  No  direct  techniques  are  available,  but  by  using  a  penalty  function  (see 
R.  Fletcher,  "Methods  for  the  solution  of  optimization  problems",  T. P.432, 

(1970)  for  instance)  a  suitable  reformulation  of  the  problem  might  be 
possible.  It  is  hoped  to  introduce  such  a  method  into  the  library  in  the 
near  future  and  users  should  check  whether  this  has  been  done. 

???  No  direct  techniques  are  available  in  the  library  and  there  is  no  obvious  way 
of  transforming  the  problem. 

In  cases  7  and  particularly  7??,  Harwell  users  are  advised  to  seek  advice  from  a  member 
of  the  Numerical  Analysis  Group. 

2.  The  flow  diagram 

1.  Does  the  problem  have  only  one  variable  (If  No,  go  to  2) 

Use  VD02A  or  VD01A  depending  upon  whether  or  not  derivatives  of  F  are  available. 

2.  Are  both  F  and  c  linear  (If  No,  go  to  3) 

_ 

Use  LA01A,  or  consider  using  the  IEM  mathematical  programming  system  MPS. 

T 

3.  Is  F  a  sum  of  squares,  F  =  f  f  (If  No,  go  to  10) 

Questions  4-9  concern  methods  for  minimizing  sums  of  squares. 

4.  Are  both  f  and  c  linear  (If  No,  go  to  5) 

If  the  constraints  are  all  equalities  then  use  of  MA14A  is  appropriate. 

Otherwise  there  are  special  methods  for  the  problems  which  do  not  appear  in  the 
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library;  either  go  to  7,  or  neglect  the  fact  that  F  Is  a  sum  of  squares  and  use 
either  VE02A  or  VE04A  as  appropriate. 

5.  Are  there  any  constraints  (If  No,  go  to  7) 

6.  Are  both  the  derivatives  dr/Qx^.  available  and  the  constraints  linear 
(If  No,  go  to  ??) 

A  method  for  solving  this  problem  efficiently  could  be  written.  Hence  go  to  ?, 
or  neglect  the  fact  that  F  is  a  sum  of  squares  and  use  VE01A.  Feasible  points  in 
connection  with  this  problem  can  be  calculated  using  LA02A. 

7.  Is  the  matrix  of  derivatives  3f  /3x,  sparse  (If  No,  go  to  8) 

-  j 

Use  of  NS03A  is  generally  appropriate,  whether  or  not  the  derivatives  can  be 
calculated  explicitly. 

8.  Can  vou  evaluate  the  derivatives  df./dx,  (If  No,  go  to  9) 

- - i  j 

A  general  purpose  routine  for  this  problem  is  VA07A.  Alternatively  if  the 
problem  is  one  of  data  fitting,  then  VBOIA  is  the  equivalent  method  but  provides 
specialized  input,  and  outputs  statistical  information  such  as  standard  deviations. 

If  exceptionally  the  rate  of  convergence  of  these  methods  is  poor,  use  VB03A. 

9.  Is  m  =  n  (If  Yes,  use  NS01A;  if  No,  use  VA05A) 

10.  Are  first  derivatives  0F/dx^  available  (If  Yes,  go  to  14) 

Questions  J  1—13  concern  methods  without  derivatives. 

11.  Are  there  any  constraints  (If  Yes,  go  to  ??) 

12.  Is  F  subject  to  gross  errors  (If  No,  go  to  13) 

Methods  may  exist  for  solving  this  problem,  but  are  not  available  in  the  library. 
Hence  go  to  7. 

13.  Use  routine  VA1QA,  If  exceptionally  this  fails,  try  VA04A.  Alternatively,  if 
it  is  possible  to  use  special  information  to  program  a  line  search  in  an  efficient 
way,  use  VA03A. 

2 

14.  Are  second  derivatives  5  F/Ox^  dx^)  available?  (If  Yes,  go  to  19) 

Questions  15-18  concern  methods  which  use  first  derivatives. 

15.  Is  the  problem  large;  for  instance  does  the  need  to  store  one  or  two  nxn 
matrices  cause  embarrassment  (If  No,  got  to  17) 

16.  Are  there  any  constraints  (If  Yes,  go  to  77?) 

Use  VA08A. 

17.  Are  there  any  constraints  (If  Yes,  go  to  18) 

Use  VA09A.  If  exceptionally  this  fails,  try  VA06A  which  is  guaranteed  to 
converge,  apart  from  the  effects  of  round-off  error,  but  may  take  more  evaluations 
of  F(x)  and  be  more  susceptible  to  badly  scaled  variables. 
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18.  Are  the  constraints  non-linear  (If  Yes,  go  to  ??) 

Use  either  VEOIA,  VE03A  or  VE05A.  VE03A  is  guaranteed  to  converge,  and  will 
probably  require  fewer  objective  function  evaluations.  VEOIA  uses  less  housekeeping 
time  per  iteration  however.  VE05A  is  particularly  efficient  when  it  is  known  that 
many  constraints  will  be  active  at  the  solution,  and  when  the  constraints  are  sparse. 
Feasible  points  in  connection  with  this  problem  can  be  calculated  using  LA02A. 

19.  Is  F  quadratic  and  c  linear  ?  (If  No,  go  to  20) 

If  the  constraints  are  all  either  upper  or  lower  bounds  (like  a<  x  <  b),  then 
use  VE04A.  Otherwise  use  VE02A. 

Questions  19-21  concern  methods  using  second  derivatives. 

20.  Are  there  any  constraints  (If  Yes,  go  to  21) 

Use  VA11A. 

21.  Are  the  constraints  non-linear  ?  (If  Yes,  go  to  ??) 

There  are  no  methods  in  the  library  which  use  all  the  information  to  its  full 
extent.  However  such  a  method  could  readily  be  written:  hence  go  to  ?,  or 
alternatively  neglect  the  availability  of  second  derivatives  and  go  to  18.  Feasible 
points  in  connection  with  this  problem  can  be  calculated  using  LA02A, 
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Introduction 

In  this  section  we  consider 

t)  the  solution  of  a  system  of  n  linear  equations 

n 


z 

j=> 


aiJ*j  =  bi  ’  i=1 ,n 


<0 


which  may  be  written  in  matrix  notation  as  the  equation 

Ax  =  b; 


(2) 


2)  the  evaluation  of  the  inverse  of  a  matrix  A; 

3)  the  evaluation  of  the  determinant  of  the  matrix  A; 

4)  the  approximate  solution  of  the  overdete mined  system  of  linear  equations 

n 

^  ^  ^ijXj  —  i=1,2,»».,m  (3) 

j=1 

with  m  >  n,  and  associated  problems; 

5)  the  eigenvalue  problem  of  finding  x,  X  such  that 


Ax  =  XBx  ,  (4) 

where  B  is  usually  the  identity  matrix  I,  and 

6)  matrix  and  vector  multiplication. 

These  problems  are  handled  by  sections  M  and  E  of  the  subroutine  library. 

We  will  distinguish  between  the  cases  where  A  is  full  (all  or  near  all  elements 
non-zero)  or  sparse  (where  so  many  elements  are  zero  that  it  is  worthwhile  to  take  special 
account  of  them)  and  the  cases  where  A  does  or  does  not  have  the  property  of  being  sym¬ 
metric  (or  Hermitian  in  the  complex  case)  and  positive  definite,  that  is  a^  =  a^  for 
all  i,j  and 

n  n 

Z  Z  ’ 0 

i=1  J=»1 

unless  x^  =  0  for  i=1,2,...,n. 

2.  Full  matrices:  solution  of  linear  equations,  matrix  Inversion  and  determinant 
evaluation 

For  the  case  where  A  is  full  the  subroutines  MA21A  and  MA22A  perform  any  of  the 
three  jobs  in  question  for  the  general  and  the  symmetric  positive-definite  cases, 
respectively.  Also  there  are  versions  for  use  when  all  the  elements  are  complex,  MA23A 
handling  the  general  case  and  MA24A  the  case  where  A  is  Hermitian  positive  definite. 

These  subroutines  are  described  in  an  AERE  report  (Marlow  and  Reid,  1971).  This  report 
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also  contains  a  brief  sunmary  of  the  mathematical  background  to  the  method  of  Gaussian 
elimination.  These  subroutines  include  facilities  for  the  rapid  solution  of  further 
systems  with  the  same  matrix  and  for  providing  error  estimates  based  either  on  the 
computer  word-length  or  on  user-supplied  information.  They  supersede  subroutines  MAOIB, 
MBOIB,  MD03A,  ME04A;  it  is  intended  that  these  be  withdrawn  gradually  from  the  library 
and  so  they  will  not  be  compared  or  described  here. 

3.  Solution  of  sparse  systems  of  linear  equations  of  band  form 

A  form  of  sparse  matrix  that  arises  quite  frequently  and  can  easily  be  exploited 
during  Gaussian  elimination  is  a  band  matrix  (ajj  =  0  if  |i-j|  >  k).  Very  substantial 
savings  in  storage  and  computing  time  result  from  this.  MA07B  handles  the  general  case 
with  real  coefficients;  MA07A  also  handles  this  case  and  is  more  economical  in  storage 
and  computing  time  because  it  uses  no  interchanges  but  is  dangerous  to  use  except  where 
it  is  known  that  no  inchanges  are  needed,  e.g. 

if  Kil>£  laj 

for  all  i  or 

h bJ 

j^i 

for  all  i.  MA15C  handles  the  symnetric  and  positive-definite  band  case  and  takes 
advantage  of  any  variability  in  band-width,  see  Jennings  (1966);  it  can  treat  very  large 
systems  since  it  uses  backing  store  if  necessary  and  so  is  very  suitable,  for  example,  for 
solving  equations  arising  from  discritization  of  two-dimensional  elliptic  partial  differen¬ 
tial  equations.  It  is  described  by  Reid  (1972). 

4.  Solution  of  very  sparse  systems  of  linear  equations 

For  matrices  that  are  very  sparse  (e.g.  an  average  of  4  to  10  non-zeros  per  row)  and 
do  not  have  a  compact  band  structure,  three  subroutines,  MA16A,  MA17A  or  MA18A  are  avail¬ 
able.  MA18A  treats  the  general  real  case  by  Gaussian  elimination,  storing  only  the  non¬ 
zeros  and  choosing  pivots  in  a  way  designed  to  limit  any  increase  in  the  number  of  non¬ 
zeros;  it  can  treat  very  efficiently  further  systems  with  the  same  matrix  or  another 
matrix  with  the  same  pattern  of  zeros  and  non-zeros.  It  has  been  documented  by  Curtis 
and  Reid  (1971).  MA16A  and  MM7A  treat  the  case  where  the  matrix  is  symmetric  and 
positive  definite.  MA17A  is  a  version  of  MA18A  that  has  been  designed  to  exploit  the 
symmetry  but  apart  from  this  its  method  and  facilities  are  very  similar.  It  has  been 
described  by  Reid  (1972).  MA16A  is  quite  different  since  it  uses  the  method  of  conjugate 
gradients;  very  large  systems  can  be  solved  since  the  user  is  required  only  to  provide  a 
subroutine  which  calculates  Ax  after  being  given  x  and  the  explicit  storage  of  A  is  unneces¬ 
sary.  This  has  been  documented  by  Reid  (1970). 

5.  Approximate  solution  of  over-determined  systems  of  equations 

Since  in  general  we  cannot  solve  an  overdetermined  system  exactly  we  must  be  content 
with  minimizing  some  measure  of  the  error  b-Ax.  The  most  frequently  used  measure  is  the 
sum  of  squares 


(5) 


m  n  2 

E[‘*-Evj] 

i=1  j=1 

this  is  minimized  at  the  solution  of  the  linear  system 

ATAx  =  ATb  ,  (6) 

known  as  the  normal  equations  (see,  for  example,  Fox,  1964,  page  81).  Subroutine  MA08A 
constructs  this  system  and  MA09A  both  constructs  and  solves  it,  assuming  that  it  is  non¬ 
singular.  A  disadvantage  of  this  technique  is  that  the  system  (6)  tends  to  be  ill- 

T  T 

conditioned,  that  is  small  errors  in  A  A  or  A  b  have  a  comparatively  large  effect  on  x. 
The  problem  can  be  overcome  by  transforming  the  system  using  elementary  orthogonal  trans¬ 
formations  and  so  avoiding  the  formation  of  the  system  (6)  (see  Businger  and  Golub,  1965) 
subroutine  MA14A  proceeds  in  this  way  and  allows  the  user  to  specify  that  some  of  his 
equations  be  satisfied  exactly.  MA09A  is  however  faster  thanMA14A.  Both  subroutines 
provide,  if  required,  (A  A)  which  may  be  used  to  estimate  the  variances  and  covariances 
of  }  l— 1 )2|«  *  < 

T 

In  the  case  where  A  A  is  singular  the  least  squares  problem  (5)  does  not  have  a 
unique  solution*  If  we  choose  from  all  those  vectors  which  minimize  (5.1)  the  one  with 
least  value  for 

n 

I>2 

i=1 

then  we  obtain  a  problem  with  a  unique  solution  and  the  matrix  A+  (generalised  inverse 
of  A)  is  defined  by  the  condition  that  A+b  is  this  unique  vector  for  all  possible 
vectors  b*  Where  A  A  is  non-singular  A  =  (A  A)  A  and  where  A  is  square  and  non- 
singular  A+  =  A  .  Subroutine  MB1CA  calculates  this  generalised  inverse,  if  requested, 
will  estimate  the  rank  of  A  and  MB11A  finds  A+  in  the  case  where  aEv  is  non-singular 
(but  note  that  it  is  written  as  if  m  and  n  were  interchanged  and  A  replaced  by  AT). 

In  addition  routines  M411B  and  MA2Q4  are  available  for  solving  the  over— determined 
problem  in  the  sense  of  minimizing  the  expressions 

aijxjb  (7) 


m  >  n  ,  (8) 


and 


II 

max  |b.  -  \ 
i=1 9  •  ,m  /  / 

j=1 


m  11 

E“-E 

i=i  j=i 


respectively.  In  general  it  is  more  expensive  to  solve  these  problems  than  the  least 
squares  one  since  a  sequence  of  subproblems  have  to  be  solved  by  the  simplex  algorithm 
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of  linear  programming  or  an  equivalent  procedure.  Measure  (7)  is  suitable  in  the  approxi¬ 
mation  problem  where  it  is  important  that  each  error  be  small.  Measure  (8)  has  an  advant¬ 
age  in  data-fitting  in  that  isolated  equations  with  gross  errors  tend  to  be  ignored. 

6.  The  eigenvalue  problem 

All  the  techniques  used  in  the  library  are  described  by  Wilkinson  (1965). 

The  eigenvalue  problem  for  a  symmetric  matrix  is  far  more  straightforward  than  for 
an  unsymmetric  matrix  for  it  is  better  conditioned  and  all  eigenvectors  always  exist. 

The  simplest  technique  is  that  of  Jacobi,  which  is  an  iterative  method  which  may  be 
used  to  find  all  eigenvalues  and  eigenvectors.  The  convergence  will  be  particularly  rapid 
for  matrices  all  of  whose  off-diagonal  elements  are  small.  Subroutine  EA03A  implements  a 
variant  of  this  algorithm. 

In  general,  however,  Jacobi's  method  is  slower  than  the  use  of  Householder  transforma¬ 
tions  to  reduce  the  matrix  to  tridiagonal  form  (MC04B)  followed  by  the  QR  algorithm  to  find 
the  eigenvalues  (EA09C)  or  the  eigenvalues  and  eigenvectors  (EA08C).  Subroutines  EA06C  and 
EA07C  are  available  to  provide  a  single  call  for  all  eigenvalues  and  eigenvectors  or  all 
eigenvalues  of  a  given  symmetric  matrix. 

Hermitian  matrices  may  be  handled  in  a  very  similar  way,  and  ME08A,  EC06C,  EC07C, 

EC08C  and  EC09C  correspond  exactly  to  MC04B,  EA06C,  EA07C ,  EA08C  and  EA09C. 

If  a  single  eigenvalue,  nearest  to  a  given  number,  and  corresponding  eigenvector  is 
required,  then  EA02A  is  available.  This  uses  inverse  iteration. 

For  the  unsymnetric  eigenvalue  problem  EB07A  is  available  to  find  all  the  eigenvalues 
and  EB06A  is  available  for  all  eigenvalues  and  eigenvectors.  It  should  be  noted  that  this 
problem  may  be  very  ill-conditioned.  The  method  used  involves  first  choosing  a  scaling 
similarity  transformation  DAD"1  so  that  the  matrix  is  better  balanced  (MC15A),  then  an 
orthogonal  reduction  to  Hessenberg  form  (MC14A)  and  finally  the  QR  algorithm  applied  to 
the  Hessenberg  matrix  (EB08A  for  eigenvalue  and  eigenvectors  and  EB09A  for  eigenvalues 
only).  These  routines  are  Fortran  versions  of  the  Algol  procedures  of  Wilkinson  and 
Reinsch  (1971). 

For  the  general  eigenvalue  problem  Ax  =  XBx  where  A  is  symmetric  and  B  is  symmetric 
and  positive  definite  the  subroutine  EA11A  is  available.  This  performs  a  Cholesky  decompo¬ 
sition  of  B  in  order  to  reduce  the  problem  to  a  standard  eigenvalue  problem  for  a  symmetric 
matrix. 

7.  Matrix  and  vector  multiplication 

Subroutines  MC01AS,  M302AS ,  MC02BS  and  MC03AS,  written  in  IBM  360  assembler  language 
are  available  for  matrix  multiplication  and  vector  inner  products.  They  are  faster  than 
any  comparable  FORTRAN  loop  and  are  accurate  since  all  intermediate  results  are  held  in 
double  precision.  MC09A  is  a  Fortran  subroutine  for  computing  the  product  of  a  sparse 
matrix  and  a  full  vector. 
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E.  Quadrature 
1.  Introduction 

In  this  section  we  consider  the  problem  of  evaluating  the  definite  integral 

b 

I(a,b;  f)  =  J  f(x)  dx  ( 1 ) 

a 

or  various  generalisations  of  it.  The  relevant  routines  fall  into  four  categories,  as 
follows : 

QA  these  are  routines  to  solve  the  simple  problem  specified  in  equation  (1),  except  that 
QA03A  produces  the  answer  for  a  series  of  values  of  b. 

QB  the  one  routine  in  this  group  evaluates  a  multi-dimensional  integral,  for  up  to  six 
dimensions. 

QD  the  single  routine  in  this  group  is  used  for  evaluating  Fourier  integrals  where  the 
trigonometric  term  is  highly  oscillatory. 

QM  there  is  again  only  one  routine  in  this  group,  for  multi-dimensional  integrals  up  to 
twenty  dimensions,  using  a  Monte  Carlo  method. 

There  is  also  a  routine,  QC02AD,  which  does  not  evaluate  any  integral  of  the  form  (1) 
or  similar,  but  instead  calculates  weights  and  evaluation  points  (see  below)  enabling 
certain  integrals  to  be  evaluated  by  the  user.  This  routine  is  described  in  Section  5. 

The  methods  available  for  numerically  evaluating  equation  (I)  all  choose  a  number  of 
values  xi#  i=1  to  n,  of  the  argument  x,  and  approximate  to  I  by  a  suitable  linear  combina¬ 
tion  of  the  integrand  values  f(x^) 

n 

I*^w.  f(x.)  (2) 

i=1 

where  the  numbers  w^  (usually  positive)  are  called  weights.  Methods  for  numerical  integra¬ 
tion  are  called  adaptive  if  the  choice  of  the  number  n  of  sampling  points  and  their  posi¬ 
tions  x^  is  influenced  directly  by  the  values  of  the  integrand  found  at  earlier  sampling 
points;  in  the  opposite  case,  the  number  and  position  of  the  x^  is  determined  only  by  the 
limits  a  and  b  of  integration  and  possibly  by  comparing  some  estimate  of  error  with  a 
requested  tolerance.  Generally  speaking,  adaptive  methods  are  more  efficient  with  diffi¬ 
cult  integrands  (e.g.  those  containing  an  integrable  singularity,  or  which  vary  much  more 
rapidly  in  some  parts  of  the  interval  of  integration  than  in  others),  especially  if  fairly 
high  accuracy  is  required. 


Integration  is  a  numerical  process  capable  inherently  of  quite  high  accuracy,  because 
of  the  smoothing  effect  which  results  from  adding  values  of  the  integrand  with  positive 
weights,  thus  giving  rounding  errors  a  chance  to  cancel.  Clearly  this  basic  stability  can 
be  eroded  if  there  is  considerable  arithmetic  cancellation  in  evaluating  the  integral, 
i.e.  if  f(x)  is  somewhere  positive  and  elsewhere  negative,  and  the  value  of  I  is  small 
compared  with  that  of 


b 

J(a,b;  f)  =  J  1  f ( x)  |  dx  .  (3) 

a 

For  this  reason  therefore,  if  one  requests  a  specified  relative  accuracy  in  I  (e.g.  that 

Q 

the  error  should  not  exceed  10  I) ,  it  is  likely  that  the  subroutine  will  in  fact  attempt 
to  limit  the  error  to  the  specified  accuracy  relative  to  the  value  of  J. 

Another  instance  where  the  basic  numerical  stability  of  quadrature  may  not  be  fully 
reflected  in  a  practical  subroutine  is  where  the  subroutine  tries  to  assess  the  local 
accuracy  by  carrying  out  numerical  operations  on  values  of  the  integrand  which  amount  to 
finite  differencing.  For  example,  it  would  be  reasonable  for  an  adaptive  routine  to 
take  evaluation  points  x^  at  a  certain  spacing  h,  using  finite  differences  of  the  inte¬ 
grand  values  f(x. )  as  estimates  of  the  derivatives  of  f(x);  it  might  then  try  to  choose 
h  so  as  to  achieve  some  accuracy  requirement,  reducing  h  if  it  seemed  that  the  accuracy 
requirement  would  not  be  met.  However,  if  the  computed  values  of  f(x^)  were  subject  to 
considerable  rounding  error,  the  finite  differences  would  be  dominated  by  this  rounding 
error,  and  reducing  h  would  not  reduce  them;  the  subroutine  would  therefore  continue  to 
reduce  h  in  a  fruitless  attempt  to  achieve  the  requested  accuracy,  until  some  lower  bound 
was  reached.  This  would  be  very  inefficient;  instead,  it  would  be  desirable  to  recognise 
that  the  accuracy  was  not  attainable,  and  to  give  the  best  practicable  answer. 

2.  Subroutines  for  one-dimensional  quadrature  (group  QA) 

This  group  tackles  directly  the  problems  stated  in  ( 1 ) ,  using  approximations  of  the 
form  (2).  There  are  five  routines  in  the  group,  one  non-adaptive  and  the  others  adaptive. 
The  non-adaptive  routine,  QA01AS,  must  be  used  if  the  integrand  f(x)  is  defined  only  by  a 
table  of  equally  spaced  values,  and  the  information  given  in  the  write-up  may  enable  the 
accuracy  obtainable  to  be  assessed.  Although  the  write-up  describes  a  possible  iterative 
technique  for  achieving  a  required  accuracy  in  the  case  where  f(x)  can  be  computed  for  any 
x  by  means  of  a  subroutine,  this  method  of  use  of  the  routine  is  not  likely  to  be  effi¬ 
cient  compared  with  the  alternative  of  using  one  of  the  adaptive  subroutines,  especially 
if  the  integrand  varies  more  rapidly  in  some  parts  of  the  range  than  in  others.  Therefore, 
use  of  this  routine  is  recomnended  only  when  the  adaptive  routines  cannot  be  used  because 
f(x)  cannot  readily  be  computed  between  tabulated  values. 

It  is  convenient  to  discuss  the  three  routines  QA02A,  QA04A  and  QA05A,  together.  They 
all  have  similar  objectives,  namely  to  achieve  a  given  requested  accuracy  in  evaluating 
equation  (1)  All  will  fail  if  b  <  a.  There  are  minor  differences,  especially  in  the  way 
the  error  request  is  interpreted  by  the  routine.  QA02A  interprets  it  as  an  absolute  error 
on  the  value  of  I,  QAOdA  interprets  it  as  an  error  relative  to  J,  while  QA05A  can  be  given 
two  accuracy  parameters,  one  to  be  interpreted  as  absolute  and  the  other  as  relative,  and 
will  attempt  to  meet  whichever  turns  out  to  be  less  demanding. 

There  is  also  a  considerable  difference  in  the  basic  approach  of  the  routines.  QA02A 
starts  at  one  end  of  the  range,  and  works  towards  the  other,  trying  to  achieve  an  error 
which  is  uniformly  distributed  over  the  range.  It  therefore  needs  little  work  space, 
because  it  carries  only  a  few  function  values  at  a  time.  The  others  first  cover  the  range 
fairly  coarsely,  obtaining  first  approximations  to  I  and  J,  and  also  an  estimate  of  the 
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error  on  I.  If,  as  normally  happens,  this  error  estimate  is  too  large,  they  then  sub-divide 
the  range,  stacking  function  values  for  part  of  it  in  temporary  work  space,  and  refining  the 
sub-division  of  the  other  part.  This  process  can  be  nested  quite  deeply  (e.g.  to  30  levels 
in  QA04A)  with  the  result  that  quite  a  lot  of  work  space  is  needed,  and  the  routines  occupy 
more  memory  than  Q\02A.  As  soon  as  they  consider  they  have  achieved  adequate  accuracy  on 
one  sub-interval  of  the  range,  they  then  unstack  another  sub-interval  and  choose  further 
evaluation  points  x^  within  this  one,  again  nesting  down  until  sufficient  accuracy  has  been 
achieved.  They  also  use  higher  order  integration  formulae  on  each  sub-interval  than  QA02A 
(which  uses  Simpson's  rule),  with  the  result  that  they  are  considerably  more  economical  in 
function  evaluations  except  when  only  modest  accuracy  is  required.  Moreover,  as  it  happens 
QA04A  and  QA05A  have  been  made  considerably  more  robust  than  QA02A  in  the  face  of  singulari¬ 
ties  or  discontinuities  in  the  integrand  function  f(x). 

All  three  of  the  routines  have  their  own  individual  (one  might  almost  say  eccentric) 
ways  of  indicating  that  they  may  not  tave  been  able  to  achieve  the  requested  accuracy,  and 
of  nevertheless  returning  the  best  approximation  they  can.  So  far  as  efficiency  is 
concerned  (measured  by  the  number  of  function  evaluations  taken  to  achieve  the  result),  it 
is  convenient  first  to  discuss  the  difference  between  QA02A  and  the  others,  and  then  to 
distinguish  between  QA04A  and  QAOSA  separately.  Many  tests  have  been  carried  out,  and 
although  it  is  difficult  to  generalise  with  absolute  confidence,  nevertheless  a  very  rough 
guiding  principal  for  integrands  which  do  not  present  a  special  difficulty  one  nay  expect 
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QA02A  to  be  competitive  for  error  tolerances  larger  than  about  10  (relative  accuracy), 
and  to  be  no  longer  competitive  when  the  tolerance  is  10  or  less.  It  has  tended  to 
perform  quite  well  on  smooth  oscillatory  integrands  with  perhaps  10-100  cycles  of  oscilla¬ 
tion  in  the  range.  However,  it  should  be  definitely  avoided  if  the  integrand  has  any  kind 

v 

of  discontinuity  or  singularity  (e.g.  like  x  at  one  end  of  the  range)  or  if  it  is  subject 
to  rounding  error.  On  smooth  integrands  it  may  be  worth  using  even  for  high  accuracies  (of 

g 

course,  double  precision  versions  should  be  used  when  relative  errors  below  about  10  are 
wanted),  if  it  is  important  to  save  storage  space.  However,  in  such  cases  use  of  QA04AD 
should  be  considered  if  at  all  possible. 

We  turn  now  to  the  comparison  between  QA04A  and  QAOSA.  First  we  note  that  QAOSA  is 

a  very  large  subroutine,  occupying  over  four  times  as  much  memory  as  QA04A.  As  against 
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this,  QA05A  is  noticeably  more  efficient  at  accuracies  better  than  about  10  on  most 
problems,  and  the  efficiency  ratio  may  become  large  at  really  high  accuracies.  QA05A  is 
also  better  on  integrands  with  various  types  of  singularity  which  it  has  been  programned 
to  recognise,  but  it  may  give  disappointing  results  compared  with  QA04A  on  singularities 
of  other  types.  Both  routines  are  quite  rugged  in  the  presence  of  rounding  error,  although 
since  this  more  coimionly  makes  itself  felt  in  situations  where  high  accuracy  has  been 
requested  QAOSA  is  frequently  more  economical  in  such  cases. 

On  the  whole,  the  choice  between  QA04A  and  Q\05A  could  well  be  based  on  the  following 
considerations:  if  memory  requirements  are  likely  to  be  a  problem  choose  QA04A ;  or  else 
if  high  accuracy  is  required  choose  QA05A,  but  otherwise  choose  QA04A.  On  further 
consideration,  not  referred  to  previously,  which  might  be  of  importance  in  some  cases  is 
the  minimum  number  of  function  evaluations  which  the  subroutine  can  possibly  use,  even 
on  a  veiy  simple  integrand.  The  point  here  is  that  if  this  number  is  too  small  the 
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subroutine  might  erroneously  conclude  that  the  integrand  was  very  simple,  while  with  a 
larger  minimum  number  of  evaluation  points  the  probability  of  this  happenining  must  be 
considerably  reduced.  The  minimum  possible  numbers  are  17  for  QA02A,  9  for  QA04A,  and 
5  for  QA05A;  however,  QA05A  does  have  some  additional  protection  built  in  for  the  cases 
in  which  the  values  of  the  integrand  at  five  equally  spaced  points  lie  on  a  straight  line. 

We  turn  now  to  QA03A,  which  carries  out  a  slightly  different  function  from  the  others. 
It  tabulates  the  value  of  the  integral  at  equally  spaced  values  of  the  upper  limit  b.  It 
is  closely  similar  to  QA02A  in  internal  design,  and  so  on  integrands  which  offer  no 
particular  difficulty  its  performance  is  likely  to  be  comparable.  However,  some  modifica¬ 
tions  which  were  recently  made  to  QA02A  to  make  it  more  rugged  in  the  face  of  rounding 
errors  or  singularities  have  not  been  made  to  QA03A,  and  while  no  instance  is  known  of 
difficulty  being  caused  by  this,  it  is  clearly  conceivable  that  on  some  problem  it  might 
arise.  If  this  happened,  the  remedy  would  be  to  use  one  of  the  other  adaptive  routines 
over  each  sub-interval  for  which  the  interval  was  required,  accumulating  the  sum  of  the 
results  to  obtain  the  answers. 

3.  Multi-dimensional  quadrature  (groups  QB  and  QM) 

Subroutines  QB01A  and  QM01A  fulfil  fairly  closely  related  functions,  but  the  methods 
they  use  are  very  different.  Thus  it  is  easy  to  understand  why  they  are  in  different 
groups,  but  nevertheless  it  is  useful  to  treat  them  in  a  single  discussion.  QB01A  treats 
a  multi -dimensional  integral  as  a  repeated  integral,  using  as  its  integration  method  the 
"product"  of  separate  conventional  one-dimensional  methods  in  each  of  the  dimensions.  The 
one-dimensional  methods  available  are  discussed  below.  An  advantage  of  the  repeated  inte¬ 
gral  approach  is  that  it  is  easy  to  allow  the  limits  of  an  inner  integral  to  depend  on  the 
variables  of  integration  of  outer  integrals,  and  this  facility  is  provided.  QMOIA,  on  the 
other  hand,  treats  the  repeated  integral  as  one  over  a  volume  of  n-dimensional  space, 
generating  points  at  random  in  this  space  for  estimation  of  the  integral  by  a  Monte  Carlo 
sampling  technique.  The  shape  of  the  region  must  therefore  be  rectangular.  An  advantage 
of  this  approach  is  fairly  easily  explained  by  means  of  a  simple  example.  Suppose  that  a 
six-dimensional  integral  has  to  be  evaluated,  and  that  to  achieve  the  required  accuracy 

one  would  need  approximately  n  points  for  each  one  dimensional  quadrature  involved.  Then 
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the  total  number  of  evaluation  points  required  will  be  N=n  and  this  can  rapidly  become 
large  with  n.  With  the  Monte  Carlo  approach,  one  chooses  in  advance  how  many  evaluation 
points  to  use,  and  because  there  is  no  particular  relationship  between  the  individual  co¬ 
ordinates  of  one  evaluation  point  and  those  of  another,  one  hopes  that  N  need  not  be  so 
large.  In  fact,  this  will  depend  very  much  on  the  accuracy  required,  but  certainly  for 
moderate  accuracy  the  Monte  Carlo  approach  is  likely  to  be  more  efficient  when  the  number 
of  dimensions  is  high. 

Let  us  consider  now  the  two  routines  separately,  starting  with  QB01A.  The  user  is 
provided  with  a  facility  by  which  he  can  choose  one  of  three  types  of  integration  method 
for  each  of  the  nested  one-dimensional  integrals.  One  choice  available  is  an  adaptive 
Simpson's  rule  (this  is  of  the  nested  type  used  in  QA04A  and  QA05A,  not  the  progressive 
type  used  in  QA02A,  so  that  storage  is  needed  for  stacking  function  values  which  will  be 
needed  later).  An  alternative  method  is  Chebyshev  integration  based  on  interpolating  the 
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integrand  with  a  polynomial  of  degree  2  ,  where  r  is  varied  up  to  7  if  necessary  in  an 


attempt  to  achieve  the  required  accuracy.  Because  the  evaluation  points  are  determined  in 
advance  for  each  r,  the  spacing  cannot  be  varied  to  be  closer  where  the  integrand  varies 
more  rapiely,  so  this  is  not  a  truly  adaptive  method.  However,  it  will  often  be  the  case 
that  the  outer  integrations  of  a  repeated  integral  will  have  fairly  smooth  integrands,  and 
in  this  case  very  good  results  nay  be  obtained  for  quite  modest  values  of  r;  for  the 
inner  integrals,  one  would  expect  Simpson's  rule  to  give  better  results.  It  is  also  poss¬ 
ible  for  the  user  to  specify  an  n  point  Gauss  quadrature  formula  for  values  of  n  up  to  15; 
no  error  estimate  is  possible  in  this  case,  but  nevertheless  this  may  be  a  useful  facility 
where  earlier  experiments  have  shown  what  values  of  n  to  use  for  integrals  of  the  type 
concerned.  There  would  then  be  two  advantages:  (i)  the  total  number  of  evaluation 
points  to  be  used  would  be  known  in  advance,  so  that  the  computational  cost  could  be 
controlled;  (ii)  because  the  integration  points  used  are  definitely  fixed,  the  approxi¬ 
mation  to  the  integral  which  is  computed  will  be  a  smooth  function  of  any  parameters  on 
which  the  integrand  (but  not  the  limits)  depends  in  a  smooth  manner,  and  this  may  be  useful 
if  it  is  intended  to  think  of  t*  integral  as  a  function  of  these  parameters. 

Turning  now  to  QM01A,  this  provides  the  facility  of  using  the  "weighted  uniform  samp¬ 
ling"  method.  If  the  integrand  is  a  function  f(x) ,  where  x  is  the  vector  of  co-ordinate 
values,  and  if  a  function  g(x)  is  known  having  the  property  that  the  integral  of  g(x)  is 
unity,  and  g  varies  in  a  rather  similar  manner  to  f,  then  the  variance  of  the  error  in 
evaluating  the  integral  is  related  to  the  variance  of  the  ratio  f/g,  instead  of  merely 
to  the  variance  of  f.  As  an  example,  suppose  that  integrand  was  a  smooth  function  multi¬ 
plied  by  l/r,  where  r  was  the  distance  from  a  point  in  the  multi-dimensional  region  (we 
can  assume  that  the  point  where  r=0  would  not  be  used  as  an  evaluation  point).  It  may  be 
that  the  integral  of  l/r  over  the  region  could  be  evaluated  exactly,  so  that  we  could  take 
g(x)  =  c/r,  where  c  was  a  constant  chosen  to  make  the  integral  of  g  exactly  equal  to  unity. 
Then  we  would  expect  to  get  the  integral  of  f  quite  accurately,  since  the  ratio  f/g  would 
not  vary  nearly  so  nuch  as  f  itself.  One  might  even  go  further,  and  use  this  technique  in 
the  case  where  the  region  of  integration  was  not  rectangular  in  shape.  One  would  define 
both  f  and  g  to  be  zero  (or  to  have  some  very  small  value)  outside  the  true  region  of 
integration,  and  would  enclose  the  latter  in  a  rectangular  region  over  which  the  integral 
was  requested.  There  would  be  an  inefficiency  due  to  the  fact  that  some  evaluation  points 
would  fall  outside  the  true  region  of  integration,  and  so  would  be  wasted;  however,  the 
method  ought  to  work,  and  the  inefficiency  would  be  small  if  the  volume  of  the  enclosing 
rectangular  region  was  not  much  greater  than  that  of  the  desired  region  of  integration. 

Because  the  relative  efficiency  of  Monte  Carlo  methods  tends  to  increase  with  increas¬ 
ing  number  of  dimensions,  it  is  probably  wise  to  prefer  QB01A  for  those  problems  of  dimen¬ 
sion  up  to  six  for  which  it  can  be  used,  restricting  QM01A  to  higher  dimensional  problems. 
However,  such  advice  can  only  be  tentative,  and  if  many  similar  integrals  are  likely  to  be 
needed  some  experiment  may  well  be  worthwhile. 

4.  Fourier  integrals  (group  QD) 

There  is  only  one  subroutine  in  this  group,  namely  QD01A,  and  it  uses  a  well  known 
method  to  evaluate  Fourier  type  integrals  in  cases  where  the  "frequency"  is  large,  so  that 
the  integrand  as  a  whole  is  highly  oscillatory.  The  method  attains  an  accuracy  comparable 
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to  that  which  would  be  obtained  apolying  Simpson's  rule  to  the  non-oscillatory  factor  only, 
and  this  is  usually  highly  satisfactory.  Because  the  method  needs  equally  spaced  function 
values,  it  cannot  be  truly  adaptive,  but  instead  operates  in  a  manner  rather  similar  to 
that  described  for  the  Chebyshev  option  in  QB01A.  The  subroutine  is  definitely  to  be  pre¬ 
ferred  to  an  ordinary  adaptive  method  applied  to  the  whole  integrand  in  cases  where  the 
trigometric  factor  oscillates  through  a  considerable  number  of  complete  cycles  in  the  range 
of  integration. 

5.  The  subroutine  QC02AD 

This  subroutine  can  be  used  to  calculate  weights  and  evaluation  points  in  order 
to  use  (2)  as  an  approximation  to 

OO 

I  =  J  e~x  f(x)  dx  (4) 

o 

The  well  known  Gauss-Laguerre  quadrature  formulas  are  commonly  used  to  evaluate  integrals 
of  this  type,  but  they  are  designed  to  be  efficient  in  the  case  where  f(x)  is  a  polynomial 
whose  degree  does  not  exceed  2K-1  for  a  K-point  formula.  Experience  has  shown  that  the 
Gauss-Laguerre  formulae  are  inefficient  when  used  with  functions  f(x)  which  do  not  tend 
to  infinity  with  x,  as  a  polynomial  must  do,  but  instead  tend  to  a  finite  limit.  Subroutine 
QC02AD  my  be  used  to  obtain  weights  wi  and  evaluation  points  x^  for  a  range  of  values  of 
K;  these  can  be  used  in  exactly  the  same  way  as  Gauss-Laguerre  weights  and  evaluation 
points,  but  can  often  give  much  more  rapid  convergence  to  the  true  value  of  I  as  the  order 
K  is  increased. 

Unfortunately,  it  is  necessary  for  the  user  to  supply  some  qualitative  information 
about  the  range  of  x  in  which  most  of  the  variation  of  f(x)  takes  place.  This  is  supplied 
in  the  form  of  a  parameter  a;  while  the  choice  of  a  is  not  too  critical,  nevertheless 
better  results  will  be  obtained  if  it  is  chosen  wisely,  and  the  following  considerations 
may  be  helpful.  If,  for  example,  f(x)  varies  monotonically  from  its  value  at  x=0  to  its 
limit  as  x  tends  to  infinity,  then  a  good  value  of  a  to  choose  would  be  such  that  f(a)  is 
half  way  through  this  range  of  variation  of  f.  If  f(x)  oscillates  several  times  before 
tending  to  a  limit,  then  the  value  of  a  should  be  chosen  so  that  there  are  roughly  as  many 

major  oscillations  of  f  to  the  left  of  x=a  as  to  the  right  of  it.  If  nearly  all  the  vari- 
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ation  of  f  is  concentrated  in  an  interval  x1  <  x  <  x^,  then  one  could  choose  a=(x^,x^>  . 
Generally  speaking,  the  object  is  to  choose  a  so  that  the  graph  of  f(x)  against  the  vari¬ 
able  z=x/(a+x)  would  be  unduly  cramped  towards  z=0  or  towards  z=1 . 

For  the  sake  of  compatibility  with  an  earlier  version  of  QC02AD  the  arrays  which  the 
user  .nust  supply  for  the  subroutine  to  return  its  results  in  have  fixed  dimensions.  This 
may  be  inconvenient  to  a  user  who  wants  only  the  results  for  fairly  low  values  of  K.  The 
user  has  also  to  supply  an  error  tolerance  which  the  subroutine  will  use  in  evaluating  the 
weights  and  values,  and  it  is  suggested  that  this  tolerance  should  be  made  fairly  small, 
sinci.  the  routine,  which  has  recently  been  considerably  modified,  is  not  unduly  expensive 
in  computer  time,  and  in  any  case  is  not  likely  to  be  used  very  frequently.  The  routine 
is  capable  of  very  high  accuracy  if  required,  up  to  the  almost  limit  of  the  double 
precision  word. 
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It  is  perhaps  worth  repeating  that  this  subroutine  does  not  evaluate  the  integral  (4); 
it  merjly  returns  numbers  which  the  user  may  substitute  in  equation  (2)  in  order  to  evaluate 
the  integral. 
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DD03AP 


FP01A 


MAI9A 


Solves  systems  of  ordinary  differential  equations  constituting  tvto-point 
boundary -value  or  eigenvalue  problems  having  the  form 

=  gA(  t,y(  ,..,yn,p.f  i  =  1 1  2*  •  •  »n  a^t^b 

with  boundary  conditions  of  the  form 

llLty,(a),...,yn(a),y](b),..,yn(b),ii)  ,..,u  )  =  0  i  =  1  ,2,..,n  +  p 

The  method  is  an  extension  of  the  multiple  shooting  method  by  M.R.  Osborne 
(J.  Math.  Anal.  Appl.  _27,  1969)  and  H.B.  Keller  (Numerical  Methods  for  Two-point 
Boundary  Value  Problems,  Blaisdell,  1968)  and  using  a  4th  order  Runge-Kutta  method 
by  R.  England  (Computer  Journal,  1 2,  1969)  for  the  associated  initial  value 
problems. 

The  provision  of  shooting  and  matching  points  is  optional.  The  user  must 
specify  a  required  accuracy  ana  can  set  a  limit  on  the  number  of  integrations  over 
a  <  x  b.  Starting  values  for  >\  i  =  1,2,. .,n  must  be  given  and  subroutines 
provided  to  evaluate  g^  and  In. 

Versions:  DD03AD;  no  single  precision  version. 

Calls:  MC02AD,  NS03AD. 

Language:  FORTRAN,  Date:  Oct.  1973,  Size:  21. 5K;  737  cards. 

Origin:  J.K.  Reid,  Harwell. 

Given  an  interval  (a, (3),  a  <  (3,  this  subroutine  automatically  determines 
axis  limits,  label  points  and  label  formats  suitable  for  drawing  a  labelled  axis 
on  the  graph  plotter. 

A  new  interval  (a,b)  and  a  label  interval  h  is  calculated  such  that  a  and  b 
are  multiples  of  h  and  round  figure  numbers  which  satisfy  a  ^  a  <  (3  b.  No 
graph  plotting  is  performed. 

Versions :  FP01 A 

Language:  FORTRAN,  Date:  May  1974,  Size:  2.5K;  255  cards. 

Origin:  M.J.  Hopper,  Harwell. 


Calculates  the  minimax  solution  of  a  system  of  m  linear  algebraic  equations 
in  n  unknowns,  m  >  n,  where  the  maximum  element  of  the  solution  is  subject  to  a 
simple  bound.  Given  equations 
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aij 


=  b. 
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i  =  1 ,2,.. ,m  m  >  n 


j=l 


find  the  solution  x^  j  =  l,2,..,n  such  that 


max 

i  l 


a. .  x .  -  b. 
ij  .1  i 


j==l 


0B01A 


is  minimized  subject  to  the  bounds  jx^ [  g  j  =  1,2,..,n. 

A  variation  of  the  1  exchange  algorithm'  is  used  that  incorporates  a  technique 
for  reducing  the  number  of  iterations,  and  which  will  also  provide  a  defined 
solution  even  when  the  matrix  fa^ji  is  tank  deficient. 

Versions:  MA19A;  MA19AD 

Language:  FORTRAN,  Date:  March  1974,  Size:  8.3K;  336  cards. 

Origin:  K.  Madsen,  Copenhagen. 

Prints  a  string  of  EBCDIC  characters  on  the  graph  plotter  using  the  GHOST 
graphics  facilities.  The  association  of  symbol  with  EBCDIC  code  is  compatible 
with  a  line  printer  fitted  with  the  Harwell  special  text  chain.  Thus,  the 
routine  can  be  used  to  simulate  line  printer  output. 


Versions:  OBOlA. 

Calls:  ICOlAS. 

Language:  FORTRAN,  Date:  May  1974, 
Origin:  M.J.  Hopper,  Harwell. 


Size:  2.6K;  128  cards. 


PA06AD 


PA07AD 


To  find  all  the  real  and  complex  roots  of  a  polynomial  with  complex  coeffi¬ 
cients,  i.e.  calculate  the  zeros  of 

2  n  _ 

a  +  a  x  +  a.x  +  ...  +  a  x  =0 
oi2  n 

The  user  can  supply  error  bounds  on  the  coefficients  of  the  polynomial  and 
the  routine  returns  bounds  on  the  moduli  of  the  errors  in  the  roots. 

The  roots  are  found  by  the  method  of  Madsen  (BIT,  J_3,  71-75,  1973)  and  error 
bounds  by  the  application  of  Rouche' s  theorem  as  recommended  by  Wilkinson  (J.  Inst. 
Maths.  Applies.,  8,  16-35,  1971). 

Versions:  PA06AD;  there  is  no  single  precision  version. 

Language:  FORTRAN,  Date:  November  1973,  Size:  8. IK;  271  cards. 

Origin:  K.  Madsen,  Copenhagen,  and  J.K.  Reid,  Harwell. 

To  find  all  the  real  and  complex  roots  of  a  polynomial  with  real  coefficients, 
i.e.  calculate  the  zeros  of 

2  n  _ 

a0  +  a,x  +  a2x  +  +  V  =  0 


The  user  can  supply  error  bounds  on  the  coefficients  of  the  polynomial  and  the 
routine  returns  bounds  on  the  moduli  of  the  errors  in  the  roots. 

The  roots  are  found  by  the  method  of  Madsen  (BIT,  J_3,  71-75,  1973)  and  error 
bounds  by  the  application  of  Rouche' s  theorem  as  recommended  by  Wilkinson 
(J.  Inst.  Maths.  Applies.,  8,  16-35,  197i). 

Remark:  This  routine  supersedes  PA01A/AD 

Versions:  PA07AD;  there  is  no  single  precision  version. 


Language:  FORTRAN,  Date:  November  1973,  Size:  8.2K;  373  cards. 

Origin:  K.  Madsen,  Copenhagen,  and  J.K.  Reid,  Harwell. 


To  integrate  a  cubic  spline  S(x)  between  limits  which  are  knot  points,  i.e. 
evaLuate  the  integral 

5, 

S(  x)  dx 


where  g  and  are  two  knot  points  of  S( x) , 
k  J 

Versions:  QGOlA;  QG01AD. 

Language:  FORTRAN,  Date:  March  1974, 

Origin:  M.J.  Hopper,  Harwell. 


Size:  .8K;  46  cards. 


i.e. 


To  integrate  a  cubic  spline  S(x) 
evaluate  the  integral 


between  limits  which  need  not  be  knot 


points. 


S(x)  dx 


where  S( x)  is  defined  as  zero  outside  the  range  of  its  knots. 


Versions: 

Calls: 

Language: 

Origin: 


QG02A;  QG02AD. 

QGOlA. 

FORTRAN,  Date:  March  1974, 
M.J.  Hopper,  Harwell. 


Size:  1 .2K;  74  cards. 


Given  a  cubic  spline  S(x),  an  estimate  xq  and  a  spline  value  y,  the  routine 
finds  the  point  £  nearest  to  x^  such  that  S(  £,)  =  y. 

The  method  is  to  locate  the  knot  interval  containing  xq,  then  examine  success¬ 
ive  nearest  knot  intervals  for  the  presence  of  a  real  root  of  S(x)  -  y. 


Versions:  TCOIA;  TCOlAD. 

Language:  FORTRAN,  Date:  April  1974,  Size:  3.1  K;  283  cards. 
Origin:  S.  Marlow,  Harwell. 


To  compute  function  values  and  the  1st,  2nd  and  3rd  derivative  values  of  a 
cubic  spline  S( x)  at  any  given  point  x. 

The  spline  and  its  derivatives  are  defined  to  be  zero  outside  the  range  of  its 
knot  points.  An  option  is  provided  for  reducing  the  search  time  for  the  knot 
interval  containing  x  making  tabulation  of  the  spline  and  its  derivatives 
economical. 

Symmetric  formulae  are  used  for  the  spline  and  its  derivatives. 
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VE06A 


VF01A 


VGOIA 


Versions:  TG02A;  TG02AD. 

Language:  FORTRAN,  Date:  March  1974,  Size:  1 .4K;  109  cards. 

Origin:  M.J.  Hopper,  Harwell. 

To  find  x  =  ,  x2,..,  x^j  that  minimizes  a  quadratic  function  of  the  form 

1  T  T 

Q(  x)  =  (l0+2-H-+  -2- 

where  H  is  symmetric  positive  definite  and  _x  is  subject  to  linear  constraints 
C  x  ^  b  and/or  simple  bounds  1^  <  Xj  <  u^  j  =  l,2,..,n.  The  matrix  H  and 
constraint  matrix  C  are  assumed  to  be  sparse  and  the  nonzero  elements  of  these 
two  matrices  must  be  provided  in  a  compact  form. 

The  routine  could  be  used  for  linear  least  squares  data  fitting  problems  which 
are  subject  to  constraints  and  are  sparse. 

Versions:  VE06A;  VE06AD. 

Calls :  LA03A. 

Language:  FORTRAN,  Date:  June  1974,  Size:  20. IK;  1 i i 4  cards. 

Origin:  D.  Divall,  Southampton. 


To  minimize  a  general  function  f(x)  of  several  variables  x  =  jx^ ,x2, . . .x^ J 
subject  to  general  nonlinear  constraints  c^Cx)  =0  i  =  1,2,..k  and  c^x)  ^  0 
i  =  k  +  1,..,m,  k  n.  Derivatives  of  f(x)  and  all  the  functions  c^x), 
i  =  1,2,..,m,  must  be  provided. 

The  method  is  described  by  Fletcher  in  the  A.E.R.E.  internal  report  CSS  2, 
Dec.,  1973.  A  penalty  function  of  the  form 


l 


ctU^x) 


0i> 


2 


is  used. 

The  user  must  provide  subroutines  to  calculate  derivatives  and  function  values, 
and  must  give  an  initial  estimate  of  the  solution  (which  need  not  be  feasible)  and 
accuracy  requirements. 

Versions:  VF01A;  VFOlAD. 

Calls:  MC11A,  VA09A,  VE04A. 

Language:  FORTRAN,  Date:  September  1973,  Siize:  25. 7K;  245  cards. 

Origin:  R.  Fletcher*,  Harwell. 


To  find  the  minimax  solution  to  a  system  of  nonlinear  equations 
f^Xi  ,x2,..,xn)  =0  i  =  1,2,..,m.  Derivatives  of  the  f^  with  respect  to  the  Xj 
are  required. 


*  No  longer  at  Harwell 


The  method  is  described  in  a  Harwell  internal  report  TP. 559  by  K.  Madsen. 

The  user  must  provide  a  subroutine  to  compute  function  values  and  derivatives 
and  provide  an  initial  approximation  to  the  solution.  The  number  of  iterations 
can  be  limited  and  accuracy  requirements  specified. 

The  routine  can  be  used  for  data  fitting,  m  >  n,  Wien  minimax  is  preferred 
to  least  squares. 

Versions:  VGOIA,  VGOIAD. 

Calls:  MA19A. 

Language:  FORTRAN,  Date:  June  1974,  Size:  2.8K;  92  cards. 

Origin:  K.  Madsen,  Copenhagen. 


To  find  the  minimax  solution  to  a  system  of  nonlinear  equations 
fjjx  ,x0,..,xn)  =0  i  =  1,2,..,m.  Derivatives  are  not  required. 

The  method  is  described  in  a  Harwell  internal  report  TP. 559  by  K.  Madsen. 

The  user  must  provide  a  subroutine  to  evaluate  f  and  provide  an  initial 
approximation  to  the  solution.  The  total  number  of  iterations  can  be  limited 
and  accuracy  retirements  specified. 

The  routine  is  applicable  to  the  minimax  data  fitting  problem. 

Versions:  VJ02A,  VG02AD. 

Calls:  MA19A. 

Language:  FORTRAN,  Date:  June  1974,  Size:  5.9K;  205  cards. 

Origin:  K.  Madsen,  Copenhagen. 


GENERAL  INDEX 


This  is  a  revised  index  which  covers  both  the  original  1973  catalogue 
and  this  supplement,  it  supersedes  all  previous  indexes.  New  references 
are  indicated  by  the  mark  ' 1 1 . 

References  to  Harwell  and  Theorectical  Physics  Division  reports  take 
the  form  R-nnnn  or  TP-nnn.  The  Computer  User's  Manual  references,  TP-389, 
are  identified  by  the  prefix  CUM  and  refer  to  the  chapter  or  appendix 
number . 


A 

ABEND  ZA02AS,  ZR10AS 
accounting  parameters  CUM-6 
adaptive  quadrature  QA02A,  QA03A, 
QA04A,  QA05A 

Aitken  extrapolation  EA02A 
angular  momentum  FG01A 
approximation  problem  97-101 
best  Lp  TP-397,  TP-469 
cubic  spline  TP-252,  TS01A,  100 
error  in  99 
explanation  of  97 
linear  98 

linear  miniraax  thro  best  Lp 
TP-470 

miniraax  TP-179,  TP-190 
nonlinear  98 
of  plane  regions  TP-420 
Pade '  PE06A 
polynomial  TP-229,  100 
polynomial-least  squares  VC01A 
polynomial-minimax  PEUA 
rational  functions  PE04A,  PE05AD 
rational  minimax  TP-442 
surface  fitting  for  contour 
plotting  TP-531 
area  bounded  by  contour  GA02A, 
GA03A 
arrays 

max.  or  rain,  element  MX01A, 

MX02A 

print  out  0A02A,  0A03A 
ASCII  code  ZA05AS 
asymptotic  series  SA01A 
ATLAS  Laboratory  DD01A,  DD02A, 
DP01A,  DP02A,  MA07A,  TD01A 
axes  FP0lA< 1 > 


B 

backing  store  MA15C,  0E01A 
Bailey. A.  FC01A,  ID03A 
balancing  -  see  also 

equilibration,  EB06A,  EB07A, 
MC15A 

Barrovdale.I.  MA20A,  TP-442 


BCD  0N01B,  ZA15AS 
BCD  source  tape  95 
Bessel  functions 

ber ,bei ,ker ,kei ,etc .  FF06A 

10  and  KO  FF03A 

11  and  K1  FF04A 
JO  and  YO  FF01A 
J1  and  Y1  FF02A 
spherical  FF05A 

Beta  function  FC05A 
binary  search  KAOtAS,  NB01A 
binary  subdivision  NB01A,  PA02A 
biseotion  PA02A 
bisection  method  EC02A 
Bjorck.A.  MA14A 
BLKSIZE  ZA18AS 
Boersman.J.  FC10A 
Booker. D.V.  R-7129 
boundary  values  DD01A,  DD02A, 
DD03AD">,  DP01A,  DP02A 
bounded  variables  MA19A1'',  VE02A, 
VE04A,  VE06A' 1 ' 

Box.M.J.  102 
Brittian.C  PE03A 
Broyden.C.G.  NS01A,  VA05A 
Buckley. A.  VE05A 
buffer-I/0  ZA03AS 
Burgoyne.F.P.  FF06A 
Businger.P.  108 
Butler. R.  PB02AS 
byte  3 


C 

o.p.u.  time  left  in  step  ZA02AS 
CADRE  QA05A 

CALL  EXIT  ZA07AS ,  ZR10AS 
Calls  3 

oartesian  co-ordinates  GAOtA 
catalogue  supplements  3 
catalogue-conventions  used  2 
CDE  ZR03AS 

channel  program  ZR03AS 
character  codes  for  7  track  source 
tape  95 

character  conversion  ZA05AS, 
ZA15AS 
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character  string  manipulation 

compare  two  strings  IC02AS 
find  a  given  character  in  a 
string  IC01AS 
find  next  non-blank  IC01AS 

characteristic  polynomial  -  real 

MC07A 

characteristic  values  -  see 
eigenvalues 
charging 

copies  of  library  routines  93 
for  use  of  computer  CUM-D 

Chebyshev  integration  114 
Chebyshev  polynomial  PE01A,  PE03A, 
PE04A,  QB01A 

Chebyshev  series  FF01A,  FF02A, 
FF03A,  FF04A,  FF06A 
Chebyshev  sets  TP-203 
chi-squared  probability  function 
SA01A 

Cholesky  MA09A,  MAI OA 
Clebsch-Gordan  FG01A 
Clenshaw. C. W.  FF01A,  FF02A,  FF03A, 
FF04A 

clock-computer  ZAOIAS,  ZA02AS 
closed  curves  0B11A 
closed  region  GA05A 
COMMON  areas-names  of  84 
completion  code  ZA02AS 
computer  clock  ZAOIAS,  ZA02AS 
conjugate  directions  TP-454,  VA04A 
conjugate  gradients  MA16A,  MC10A, 
MC12A,  R-6545,  TP-411,  TP-445, 
VA08A,  107 

constraints  LA01A,  LA02A,  MA14A, 
MA20A,  TP-478,  VA07A,  VE01A, 
VE02A,  VE03A,  VE05A,  VE06A'>>, 
VF01 A '  «  > ,  102 
Conte'  FC12A 
contours  GA03A 
conversion 

ASCII  to  EBCDIC  ZA05AS 
BCD  to  EBCDIC  ZA15AS 
EBCDIC  to  BCD  ZA15AS 
EBCDIC  to  UNIVAC  field  data 
ZA15AS 

under  FORMAT  ZA03AS 
copy  area  of  core  ZR03AS 
Corbalo'  F.J.  FF05A 
core  dump  ZR10AS 
correlation  VC04A 
Crank-Nioolson  DP01A 
crib  sheets  CUM-6 
cubio  -  zeros  of  PA03A 
cubic  splines 

approximation  problem  TS01A 
curve  fitting  TP-307 
defining  a  closed  region  GA05A 
definition  of  98 
derivative  values  TG02A* 1 ’ 
evaluation  of  TG01A,  TGOtB, 

TG02A 1 > ' 


integration  QG01A'1’,  QG02A"  > > 
interpolation  TB04A,  TB05A 
inverse  interpolation  TC01A' 1 1 
least  squares  TP-264,  TP-308, 
VB05B,  VB06A,  VC03A 
parametric  GA05A 
periodic  TB05A 
plot  graph  of  0B12A 
Curtis. A. R.  DCOIAD,  DC02AD,  FC13A, 
FT01A,  MA18A,  MC10A,  MC12A, 
ME07A,  0C01A,  0E01A,  PD03A, 
PE05AD ,  QA05A,  R-5600,  R-6844, 
TD02A,  TP- 179,  TP- 190,  TP-252, 
TP-423,  TP-444,  TP-450,  TP-476, 
TP-477,  TSOI  A ,  ZE01A,  107 
Curtiss. P.C.  PEI  1 A 
curve  drawing  0B11A,  R-7092 
curve  fitting  -  see  data  fitting 
cusps  0B11A 
CVT  ZR03AS 


D 

data  fitting  MA09A,  MA11B,  MA14A, 
MA19A'>>,  MA20A,  97-101 
bounded  variables  VE04A, 

VE06A ( >  ' 

choices  of  fitting  function  97 
cubic  spline  VB05B ,  VB06A, 
VC03A,  100 
explanation  of  97 
general  program  for  R-7129 
linear  98 

linear  constraints  VE02A, 

VE06A' > » 

minimax  VGOIA111,  VG02A< 1 > 
nonlinear  NS03A,  VA02A,  VA05A , 
VA07A,  VB01A,  VB03A,  VG01A' > ' , 
VG02A 1 1 ' ,  98,  101 
polynomial  100 

rational  functions  no  facility 
sparse  VE06A' 1 > 
sparse  Jacobian  NS03A 
straight  line  fit  VC04A 
sums  of  exponentials  101 
types  of  error  norm  98 
data  set 

DECtape  0D02A 
paper  tape  0D01A 
swop  names  of  ZA16AS 
track  usage  ZA16AS 
date 

of  write  ups  86 
todays  date  ZA09AS,  ZA10AS 
use  in  library  catalogue  3 
Davidon.W.C.  VE01A 
Davies. D.  102 
Dawson's  integral  FCt3A 
DCB  ZA18AS,  ZR03AS 
DD  card  information  ZV01AD 
DDname 


check  presence  of  ZA17AS 
DEB  ZR03AS 
deBoor.C.  QA05A 
debug  information  ZR10AS 
debugging  programs  CUM-12 
DECtape  CUM-13,  0D02A,  ZA05AS 
DECtape  JCL  CUM-6 
deficient  rank  MA19A'1’,  MBtlA 
degrees  of  freedom  SA01A,  SA02A, 
SA03A 

determinant  MA21A,  MA22A,  MA23A, 
MA24A,  MB02A,  MD03A,  106 
diagonally  dominant  EA03A 
dictionary  0N01B 
differential  correction  algorithm 
TP-442 

differential  equations-ordinary 
boundary  value 

eigenvalue  problems  DD03AD<  *  > 
linear  2nd  order  DD01A 
nonlinear  2nd  order  DD02A 
1st  order  systems  DD03AD< 1  1 

differential  equations-ordinary 
initial  value 

Gear's  method  DC01AD,  DC02AD 
Herraite  interpolation  TP-423 
Runge-Kutta  DA01A,  DA02A 
systems  DA01A,  DA02A,  DC01AD, 
DC02AD 

differential  equations-partial 

elliptic  no  facility,  107 
finite  element  method  no 
facility,  TP-436 
hyperbolic  no  facility 
Laplace’s  equation  TP-422, 

TP-436 

parabolic-linear  DP01A 
parabolic-nonlinear  DP02A 

discontinuity-3rd  derivative  VC03A 
disjoint  intervals  KC01A,  KC02A 
disk  characteristics  CUM-H 
disks  -  demountable  CUM- 8 
Divall.D.  VE06A( 1 ’ 
double  precision  names  85 
double  rank  algorithms  TP-471 
DSCB  ZA18AS,  ZR03AS 
DSNAME  ZV01AD 
Duff. I.  MC13A,  TP-526 
dummy  READ  and  WRITE  ZA03AS 
dynamic  allocation  of  storage 
IA01AS 


E 

EBCDIC  0B01A* 1 1 
edit  oommands  0E01A 
edit  facilities  0E01A 
eigenvalue  problem  109 
eigenvalues  R-7168,  106 

characteristic  polynomial  MC07A 
form  Ax  *  eBx  EAllA 


general  complex  no  facility 
Hermitian  EC06C,  EC07C,  ME01B, 
ME08A 

Hermitian  tri-diagonal  EC02A, 
EC08C,  EC09C 

nearest  to  a  given  estimate 
EA02A 

power  method  EA02A 
real  matrix  EB06A,  EB07A 
real  symmetric  EA03A,  EA06C, 
EA07C,  MC04B 

real  symmetric  tri-diagonal 
EA08C,  EA09C 
scaling  a  matrix  MC15A 
upper  Hessenberg  EB08A,  EB09A, 
MC08A,  MC14A 
eigenvectors  106 
form  Ax  =  eBx  EAllA 
general  complex  no  facility 
Hermitian  EC06C 
Hermitian  tri-diagonal  EC08C 
power  method  EA02A 
real  matrix  EB06A 
real  symmetric  EA03A,  EA06C 
real  symmetric  tri-diagonal 
EA08C 

scaling  a  matrix  MC15A 
upper  Hessenberg  EB05A,  EB08A 
elliptic  integrals 

complete  1st  and  2nd  kind  FB01A 
complete  3rd  kind  FB03A 
incomplete  1st  and  2nd  kind 
FB02A 

England. R.  DD03AD* >  > 
entry  point  address  ZR02AS 
entry  points-names  of  84 
equations  -  see  solution  of 
equations 

equilibration  MA17A,  MA18A,  MA21A, 
MA22A,  MA23A,  MA24A,  TP-444 
equilibration  faotors  MC10A, 

MC12A,  ME07A 
Erisman.A.M.  TP-525 
error  analysis-cubic  spline  R-5600 
error  estimates  MA21A,  MA22A, 
MA23A,  MA24A,  PA02A,  PA06AD<»>, 
PA07AD* 1  * ,  107 
Error  funotion 
complex  FC01A 

erf(x)  and  erfc(x)  see  IBM  ERF, 
ERFC,  DERF  and  DERFC  functions 
error  norms  98,  108 
exchange  algorithm  MA19A<>» 
Exponential  integral  FCtlA 
external  users  93 


F 

fast  data  link  system  TP-464 
fast  Fourier  transforms  FT01A 
Fast  loader  87 
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mmhmmi 


FATAL  R-7129 

feasible  solution  LA02A,  R-6354 
Filon’s  method  QD01A 
finite  differences 

approximation  to  derivatives 
NS01A,  NS03A,  SV01A,  TD01A, 
TD02A,  TP-476,  TP-477 
central  TA03A 
divided  differences  TA02A 
table  of  TA01A 


Fisher's  F  probability  SA03A 
fitting  -  see  data  fitting 


Fletcher .R 

.  FC12A 

,  LA02A, 

MCI  1  A, 

R-6354, 

R-6370, 

R-6799, 

R-7073, 

R-7125, 

TP-368, 

TP-383, 

TP-397, 

TP-401  , 

TP-431 , 

TP-432, 

TP-449, 

TP-453, 

TP-454, 

TP-456, 

TP-469, 

TP-470, 

TP-478, 

TP-529, 

VA07A, 

VA08A,  VA09A,  VA10A,  VB01A, 
VE01A,  VE02A,  VE03A,  VE04A, 

VF01 A ( 1 1 ,  103 

floating  point  arithmetic  ZE01A 
FORMAT-construction  at  execution 
time  0N02A 
Forsythe. G.E.  VC01A 
FORTRAN  compilers  CUM-tl 
FORTRAN  I/O  CUM- 17 
FORTRAN  II  2 
FORTRAN  IV  2 

FORTRAN  variable  types  CUM-5 

Fourier  integrals  115 

Fourier  transforms-discrete  FTOlA 

Fox.L.  DD01A 

fractional  part  FA02AS 

Frank. W.L.  PEUA 

free  format  input  0N01B,  0N02A 

FREEMAIN  I AO IAS 

Fresnel  integral  FC10A 

Fried  FC12A 

fundamental  cubic  spline  VB05B, 
VB06A 


G 

Gamma  function  FC03A,  see  also  IBM 
GAMMA,  DGAMMA,  ALGAMA  and  DLGAMA 
functions 

Garside.R.  0002A 
Gauss  quadrature  115 
QB01A 

Gauss-Laguerre  QC02AD,  U6 
Gaussian  distribution  FA03A 
Gaussian  elimination  MA01B,  MA07A, 


MA07B , 

MA12A, 

MA18A, 

MA21A, 

MA22A, 

MA23A, 

MA24A, 

MB01B, 

MB02A, 

MC10A, 

MC12A, 

MD03A, 

ME04A, 

107 

ME07A, 

R-6899 

,  TP-444, 

Gaussian  elimination,  stability  of 
TP-441 

Gaussian  quadrature  QC02AD 


Gavan.A.  1D02A 
Gear.C.W.  DC01AD 

general  registers-contents  ZR10AS 
generalized  inverse  MB10A,  MBUA, 

108 

generating  pseudo  errors  FA03A 
Gentleman.W.M.  FTOlA 
GETMAIN  IA01AS 
GHOST  0B01 A 1  1  ’  ,  0B11A,  0B12A, 
TP-484 

Golub. G.H.  MA14A,  108 
Gram-Schmidt  orthogonalization 

MC06A 

Grant. J. A.  TP-397,  TP-469,  TP-470 
graph  plotting 

axis  limits  FP01A' 1 > 
contour  plotting  TP-531 
cubic  spline  0B12A 
curve  through  points  OBllA, 
R-7092 

label  formats  FP01A< 1 > 
label  points  FP01A( 1  1 
line  printer  simulation  0B01A' 1  ’ 
on  line  printer  0C01A 
on  teletype  0C01A 
print  text  OBOIA11’ 
users'  manual  (GHOST)  TP-484 
Green. D.  QMOiA 


H 

Hallowell.P.  DD01A,  DD02A,  DP01A, 
DP02A,  TD01A 

HAR.LIB  87 
HARSLS 

control  card  format  90 
PARM  field  options  91 
Hart.W.E.  PC01AS,  QD01A,  ZA08AS, 
ZA09AS ,  ZA12AS 
Harwell  computer  CUM-5,  1 
Harwell  Subroutine  Library  l 
Bulletin  89 

charges  for  library  material  93 
external  users  93 
how  to  use  the  library  84-96 
information  files  87 
naming  conventions  84 
news  sheet  88 
request  form  96 
source  tape  90 
status  index  88 
summary  of  information  sources 
89 

up  to  date  changes  87 
use  outside  Harwell  93 
HASP  CUM-B 
Hastings. C.R.  FB01A 
HCF  ID02A 

Hearn. A. G.  GA01A,  TB01A,  TB02A 
Hebden.M.D.  TP-397,  TP-469, 

TP-470,  TP-515,  TP-529,  VA11A 
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Hedge r.J.  SAOIA 

Hermite  interpolation  in  ODEs 

TP-423 

Hermitian  EC02A 

Hessenberg  EB05A,  EB08A,  EB09A, 

MAI  2 A 

Hessian  VEOIA 

highest  common  factor  ID02A 
Hoare .CAR.  KB01A,  KB02A,  KBG3A, 
KBCKA 

Hopgood.F.R.  FF05A ,  QB01A 
Koo'»er.M.J.  FDOIAS,  FPOlA(1), 

" 1  AO’ AS ,  I C01 AS ,  IC02AS ,  IDOIAS, 

ir.nMBS,  k:\gias,  krua,  laoia, 

MAOS A ,  MA09A,  MAI OA,  MAI  IB , 

MA 1 4 A ,  MC05AS ,  MXOIA,  MX02A, 
f i A02A ,  0A03A ,  OBOIA'11,  PA02A, 
P302A3 ,  PD02A ,  QAOIAS,  QG01A<>>, 
GG  '2A  ’  1 ,  SAOIA,  TGOIB , 

TG02A 1  >,  ZA02AS ,  ZA06AS , 

ZA07AS,  ZA18AS,  ZR03AS 
householder  orthogonal 

transformations  EA06C,  EA07C, 
F.C06C  ,  EC07C,  MA14A,  MB  1 1 A , 
MC04F3,  MC07A,  MEOtB,  ME08A , 

VB05B ,  VB06A 
HSLM  88 
HSLP  38 
HSLS  68 
HSLV  88 

Hunter. G.  ZR02AS ,  ZRIOAS 
HUW 

obtaining  library  routines  92 
submitting  a  program  CUM-6 


I 

index-computer  generated  87 
information  ~  general  computing 

CUM-M 

information-up  to  date  changes  87 
initial  value  problems  DAOlA, 
DAG2A,  DCCiAD,  DC02AD 
integer  part 

double  precision  number  DINT 
log  to  base  16  IDO  IBS 
log  to  base  2  IDOIAS 
integration  -  see  quadrature 
interior  point  (closed  region) 
GA05A,  R-7298 
interpolation  99 

cubic  spline  R-5600,  TBOAA, 
TP-252,  100 

cubic  spline-  periodic  TB05A 
even  function  TBOIA 
general  linear  case  100 
Hermite,  in  UDEs  TP-423 
Lagrange  TBOIA,  TB02A 
linear  NB01A 
piece-wise  cubics  TB03A 
polynomial  PC02A,  TB02A,  100 


interrupt-timer  ZA02AS 
inverse  interpolation  TC01A11' 
inverse  iteration  EB05A 
inverse  matrix  106 

IOB  ZR03AS 

isoceles  triangle  GA03A 
iterative  refinement  of  solution 

MA21A,  MA22A ,  MA23A,  MA2AA , 
R-6899 


J 

Jackson. M.P.  VE04A 
Jacobi's  method  EA03A,  109 
Jacobian  NS03A 
Jahn’s  U  function  FGOiA 
JCL  procedures  CUM- 18 
JFCB  ZA18AS,  ZR03AS ,  ZV01AD 
Job  Control  Language  CUM-6 
jobname  ZA17AS 
Jones. R.L.  TP-484 


K 

Kearsey.H.A.  ZA16AS,  ZA17AS 
Keller. H.B.  DD03AD' 1 1 
Kerr.E.  PB02AS 
keywords-identify  0N01B 
knots  0B12A,  QG01A<‘>,  TB04A, 
TB05A ,  TC01A,  TGOIB,  TG02A 1 1 > , 
TSOI  A,  VB05B,  VP06A,  VC03A 


L 

Lagrange  interpolation  TBOIA, 

TB02A 

Lancefield  M.  PA04A 
Language  2 

Laplace’s  equation  -  finite 
elements  TP-436 
latent  roots  -  set  eigenvalues 
latent  vectors  -  see  eigenvectors 
least  squares-linear  MA08A,  MA09A, 
MA14A,  100 

bounded  variables  VE02A,  VE04A, 
VE06A' 1 > 

linear  constraints  VE02A, 

VE06A ' «  1 

linear  equality  constraints 
MA14A 

polynomial  VC01A 
singular  normal  equations  108 
straight  liDe  fit  VC04A 
least  squares-nonline&r  NS03A, 
R-6799,  TP-439,  VA02A,  VA05A, 
VA07A ,  VB01A,  VB03A 
no  derivatives  NS03A,  VA02A, 
VA05A 

Ledger. J.  V004A 


Lesbegue  polynomial  PC02A 
library  routines 

argument  types  86 
cloubLe  precision  names  85 
names  of  84 

obtaining  as  HUW  files  92 
omitting  from  stored  programs 
CUM- 10 ,  87 
requirements  85 

source  decks  and  listings  89-92 
specifications  85 
using  in  programs  86 
write  ups  85 

line  printer  text  chain  0B0lA(l) 
linear  algebra  106-110 
linear  interpolation  GA03A 
linear  programming  MAliB,  MA20A, 
R-6354 

feasible  solution  LA02A 
revised  Simplex  method  LA01A 
update  basis  LA03A 
Linkage  Editor  CUM-10,  87 
LIST  90 
LRECL  ZA18AS 


M 

Madsen. K.  MA19A<‘>,  PA06AD ' 1 1 , 
PA07AD <  1  '  ,  VGOt A ! 1  > ,  VG02A ' 1 1 
Maehly.H. J.  PE05AD 
magnetic  tapes  CUM-16 
Markov  sets  TP-203 


Marlow. S. 

EAUA 

,  EB06A, 

EB07A , 

EB08A, 

EB09A, 

EC06C, 

EC07C, 

EC08C, 

EC09C , 

FB01A, 

FC03A, 

FC05A , 

FC10A, 

FC11A, 

FF01A, 

FF02A, 

FF03A, 

FF04A, 

FF06A, 

MA21A, 

MA22A , 

MA23A , 

MA24A , 

MC14A, 

MC15A, 

ME06AS , 

ME07A, 

ME08A, 

OBI  1  A, 

0B12A, 

PA05A, 

PE01A, 

PEI IA, 

R-6899, 

R-7092, 

TC01 A  1 

'  > ,  106 

Marquardt  method 

NS03A , 

R-6799, 

VA05A , 

VA07A, 

VB01A 

mathematical  programming  TP-478 
mathematical  programming  - 

nonlinear  TP-368,  TP-449 
matrices 

adjoint  MB02A 
adjugate  MBG2A 
balancing  EB06A,  MC15A 
band  structured  MA07A,  MA07B, 
MA15C ,  TD02A ,  107 
complex  EC02A ,  EC06C,  EC07C, 
EC08C,  EC09C,  MA23A,  MA24A, 
ME04A,  ME07A 

complex  matrix-vector  product 

ME02A 

deficient  rank  MA19A,l> 
determinant  MA21A,  MA22A,  MA23A, 
MA24A,  MB02A ,  MD03A,  R-6899,  106 


eigenvalues  of  EA02A,  EA03A, 
EA06C ,  EA07C ,  EA08C ,  EA09C , 
EA11A,  EB06A ,  EB07A,  EB08A , 

EB09A ,  EC02A,  EC06C ,  EC07C , 
EC08C,  EC09C ,  109 
eigenvectors  of  EA02A,  EA03A, 
EA06C ,  EA08C ,  EA11A,  EB05A , 
EB06A,  EB08A,  EC06C ,  EC08C,  109 
equilibration  MC10A,  MCI 2A , 

ME07A 

factorization  of  (sparse)  MA17A, 
MA18A,  TP-500 
factorize  LA03A 
generalized  inverse  MB10A, 

MB11A,  R-6072,  108 
Herraitian  EC06C,  EC07C,  EC08C, 
EC09C,  MA24A,  ME01B,  ME02A , 
ME08A,  106 

Hermitian  tri-diagonal  EC02A, 
ME08A 

Hessenberg  form  EB05A,  EB08A, 
EB09A,  MA12A,  MC08A,  MC14A, 

ME04A 

Hessian  VA10A,  VEOlA 
inverse  MA01B,  MA10A,  MA21A, 
MA22A,  MA23A ,  MA24A,  MB01B, 

MB02A ,  MB04A ,  MB05A,  R-6899,  106 
Jacobian  NS01A,  TD02A,  TP-476, 
TP-477 

large  and  sparse  MA16A,  MA17A, 
MA18A,  TD02A 
LP  basis  LA03A 
matrix-vector  product ( sparse ) 
MC09A 

multiplication  106 
optimization  applications  MC11A 
over  determined  MA08A,  MA09A , 

MAI  IB,  MA14A,  MA20A,  106 
partitioned  MB04A,  MB05A 
print  out  0A01A 
product  of  MC01AS,  109 
property  A  TP-445 
rank  one  update  MCilA 
real  general  EB06A,  EB07A 
real  symmetric  EA02A,  EA03A, 
EA06C,  EA07C ,  EA08C,  EAUA, 

MB04A ,  MB05A,  MC04B,  MC07A, 
MD03A,  106 

real  symmetric  tri-diagonal 
EA09C 

rectangular  MB10A,  MB11A 
scaling  MC10A,  MC12A,  MC15A, 
ME07A,  TP-444 

sparse  LA03A,  MA16A,  MA17A, 
MA18A,  MC09A,  MC12A,  MC13A, 
R-6545,  TP-500,  106,  107 
sparse  to  block  triangular  MC13A 
sparse,  stability  of 
factorization  TP-525 
sparsity  orderings  TP-526 
symmetric  positive  definite 
EA11A,  MA10A,  MA15C,  MA16A, 


MA17A,  MA22A ,  MCI  1 A ,  VE06A 1  '  1  , 
106 

til-diagonal  EA08C,  EA09C, 

EC08C,  EC09C ,  MC04B  ,  ME01B 
update  factorization  LA03A 
va r i ance -c o va  r i anc  e  matrix 
MA14A,  VE04A,  108 
McConalogue . 3 . J.  0B11A 
tclStchie.R.C.7.  DINT,  FA01AS, 
MC01AS,  MC02AS,  MC02BS ,  MC03AS , 
0NO2A ,  PBOIAS,  TP-435,  TP-464, 
ZA01AS,  ZA02AS ,  ZA03AS 
McVicar.D.  DA01A,  QD01A,  ZR01AS, 
ZV01AD 

merging  intervals  KC01A,  KC02A 
Merson  DACIA,  DA02A 
message  to  operator  ZA12AS 
MEARSLS 

how  to  use  92 
Miller. D.  GA02A,  TB03A 
minimax  MAI  IB,  MAigA'1’,  PE04A, 
PE05AD,  PE  1 1 A 

minimization  of  a  function  102-105 

bounds  on  variables  VE04A 
eliminating  variables  102 
flow  diagram  for  choice  of 
routine  103 
large  problems  VA08A 
linear  LA01A 

linear  constraints  LA01A,  VE01A, 
VE92A,  VE03A,  VE05A,  VE06A1 « > 
no  derivatives  VA03A,  VA04A, 

VA! OA,  VD01A 

non-linear  constraints  VF01A' 1 1 
one  variable  VD01A,  VD02A 
quadratic  function  VE02A,  VE04A, 
VE06A 1 > » 
sparsity  VE05A 
sum  of  squares  R-6799,  VA07A, 
VB01A,  VE103A 

sum  of  squares,  no  derivatives 
VA02A ,  VA05A 

using  2nd  derivatives  TP-515 
1st  and  2nd  derivatives  VA11A 
1st  derivatives  VA06A,  VA08A, 
VA09A ,  VE01A,  VE03A,  VE05A , 

V.-O!  A  •  ’ 

modify  a  program  (stored  on  disk) 

CUM- 9 

Monte  Carlo  QM01A,  114 
Moody. K.  KB10AS,  ZR10AS 
Morgan. L.  FB02A ,  MB01B,  PC02A , 
PE06A 

multiple  shooting  method  DD03AD 1 1  ’ 
multiplicative  congruent  method 
FA01AS 

multiprogramming  ZAO! AS 


N 

KCAL  87 


nested  form  (polynomials)  l-BOlAS 
Newton-Coates  0AO1AS 
Newton-Raphson  NS01A,  PA02A, 

VA05A ,  VA06A ,  VA11A 
nonlinear  least  squares  VA02A , 
VA05A ,  VA07A,  VB01A,  VB03A 
normal  equations  MA08A,  MA09A ,  108 
Northcliffe.S.  PE07A ,  PE08A 
numerical  advisory  service  TP-529 


0 

0C1-0C5  interrupts  ZR10AS 
old  PSV  ZR10AS 
optimization  MCiiA,  R-6469, 

TP-393,  TP-430,  TP-431,  VA04A , 
VA06A ,  VA03A ,  VA09A ,  VA10A, 
VA11A,  VD01A,  VD02A,  VE01A, 
VE02A,  VE03A ,  VE04A,  VE05A, 
VE06A 1 1  ' ,  VE 0 1 A 1 ‘  ' ,  102-105 
conjugate  direction  method 
TP-454,  TP-483 
conjugate  gradients  R-7073 
constraints  TP-439,  TP-478, 
TP-495,  102 

eliminating  variables  102 
flow  diagram  for  choice  of 
routine  103 
Large  problems  VA08A 
lineal-  constraints  TP-431, 
TP-453,  VE01A,  VE02A ,  VE03A, 
VE05A 

non-linear  constraints  VF01A1 1  1 
penalty  function  TP-478 
quadrat i-  programming  R-6370, 
TP-401 

quadratic  termination  properties 
TP-471 ,  TP-472 
quasi-Newton  method  R-7125 
rank  one  methods  TP-372 
search  directions  TP-492 
sum  of  squares  R-6799,  TP-161, 
VA02A ,  VA05A,  VA07A ,  VB03A 
survey  of  methods  TP-340, 
TP-432,  TP-456,  TP-495 
using  2nd  derivatives  TP-515 
variable  metric  algorithm 
TP-382,  TP-383,  TP-459 
ordering 

numbers  KB01A,  KB02A,  KB03A , 
KB04A ,  KB11A 
tables  KAO 1  AS ,  KB10AS 
with  index  array  KA01AS,  KB03A, 
KB04A,  KB10AS 
Origin  3 

orthogonal  polynomial  PE07A, 

PE08A ,  QC02AD ,  VC01A,  100 
orthogonal  transformations  EA03A , 
EB06A,  108 
Osborne. M.  PE05AD 
Osbourne  MC06A 


Osbourne. M.  DD03AD'1’ 
over  determined  matrix  MA08A , 
MA09A 

overlay  programs  CUM-E 


P 

Packham.G.  MB02A 

Pade'  approximation  problem  PE06A 
paper  tape  CUM-t3,  ODOiA,  ZA05AS 
paper  tape  JCL  CUM-6 
Papworth.D.G.  SA02A,  SA03A 
parametric  programming  problems 
VE01A,  VE02A 
Parlett.B.  R-7168 
PARM  field  ZA06AS,  ZR02AS 
partial  pivoting  MA01B,  MA07B, 
MAt2A,  MA21 A,  MA23A,  MB01B, 

ME04A 

penalty  function  VFOlA1 1  1 
permutation  (matrix)  MC13A 
plasma  dispersion  function  FC12A 
plotting  -  see  graph  plotting 
polar  co-ordinates  GA05A 
poles-Pade'  approximation  problem 
PE06A 

polygon  GA05A 
polynomial  -  complex 

zeros,  complex  and  real 
PA06AD 1 >  > 

polynomial  -  real  97 

change  of  variable  PD03A 
coefficients  of  PC01AS,  PE08A 
cubic,  zeros  of  PA03A 
divide  out  root  PD01AS 
evaluation  of  PB01AS,  PB02AS, 
PE07A 

functions  of  PD02A 
in  terms  of  Chebyshev  polynomial 
PE01A,  PE03A 
interpolation  PC02A 
least  squares  VC01A 
minimax  approximation  problem 
PEttA 

number  of  roots  PA04A 
orthogonal  PE07A,  PE08A,  VC01A 
quartic,  zeros  of  PA05A 
real  zeros  of  PA02A 
reduced  polynomial  PD01AS 
zeros,  complex  and  real 
PA07A0 1 «  1 

Powell. M.J.D.  MAI 4A,  MB04A,  MB05A, 
MB10A,  MB11A,  MC07A ,  MC11A, 
MD03A,  NS01A,  0B11A,  0B12A, 
QA02A,  QA03A,  QMOi A,  R-5600, 
R-5947,  R-6072,  R-6469,  R-7092, 
SV01A,  TA01  ■»,  TD02A ,  TG01A, 
TP-161,  TP-179,  TP-190,  TP-203, 
TP-207,  TP-229,  TP-252,  TP-264, 
TP-307,  TP-308,  TP-328,  TP-340, 
TP-364,  TP-372,  TP-382,  TP-393, 


TP-430,  TP-439,  TP-442,  TP-459, 
TP-471,  TP-472,  TP-483,  TP-492. 
TP-495,  TP-531,  TSOIA,  VA02A, 
VA04A,  VA05A ,  VA06A,  VB03A, 

VB05B ,  VB06A,  VC03A ,  VD01A, 

VD02A 

power  method  EA02A 
powers  to  base  16  FD01AS 
powers  to  base  2  FD01AS 
predictor-corrector  method  DC01AD, 

DC02AD 

programs-store  on  disk  CUM-8 
PSW  ZR10AS 
PUNCHB  90 
PUNCHE  90 


Q 

QR  algorithm  EA06C ,  EA07C,  EA08C , 
EA09C ,  EAI1A,  EB06A,  EB07A, 

EB08A ,  EB09A,  EC06C,  EC07C , 
EC08C,  EC09C,  109 
quadratic  form  GA02A 
quadratic  programming  R-6370, 
TP-401 ,  VE03A 
quadrature 

adaptive  QA02A,  QA03A,  QA04A, 
QA05A,  lit 

choice  of  routine  111-117 
cubic  splines  QG01A11',  QG02A‘ 1 1 
Gauss  CA04A,  QC02AD 
Monte  Carlo  QM01A,  TP-207,  114 
multidimensional  0B01A,  0MO1A, 
114 

Newton-Coates  QA01AS 
optimal  formulae  TP-223,  TP-224, 
TP-225,  TP-227 
relative  error  112 
Simpsons  rule  OA02A 
tabulation  of  an  integral  QA03A 
trigonometric  QD01A 
weights  111 

quantum  mechanics  FC12A,  FGOiA 
quartic  PA05A 

quasi-Newton  method  VA09A,  VA10A 
Quasi-random  numbers  no  facility 
queries 

external  users  93 
general  87 
write  ups  86 

QUICKSORT  KB01A,  KB02A ,  KB03A, 
KB04A 


R 

Racah  FGOi A 

random  numbers  FA01AS,  FA03A 
rank  MB10A,  MB  1 1 A ,  108 
rank  one  update  MC11A 
rational  approximation  97,  too 
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in  terms  of  Chebyshev  polynomial 
PE04A 

minimax  PE05AD 
Pade '  PE06A 

Rayleigh  quotients  EA08C 
RB  ZR03AS 
re-issues  3 
re-read  input  ZA03AS 
read  speoial  characters  0N01B 
real  time  ZA01AS 
RECFM  ZA18AS 
record  format  ZA18AS 
recurrence  relation  PA02A,  PE07A, 
PE08A,  VCG1A 
reduction  of  matrices 

to  Hessenberg  form  MC08A,  MC14A 
to  tri-diagonal  MC04B,  ME01B 
to  tri-diagonal  Hermitian  form 
ME08A 

Reeves. C.M  VA08A 
REGION  CUM-6 
regression  VC04A 
Reid.J.K.  EA06C,  EA07C ,  EA08C, 
GA05A,  LA03A,  MA07B,  MA14A, 
MA15C,  MA16A,  MA17A,  MA18A, 
MA21A,  MA22A,  MA23A,  MA24A, 
MC09A,  MC10A,  MC12A,  MC13A, 
ME07A,  NS03A,  PA06AD'>>, 

PA07AD ‘ 1 ' ,  R-6545,  R-6844, 

R  6899,  R-7119,  R-7293,  R-7298, 
TB04A,  TB05A,  TD02A,  TP-411, 
TP-420,  TP-422,  TP-436,  TP-441 , 
TP-444,  TP-445,  TP-450,  TP-476, 
TP-477.  TP-500.  TP-525,  TP-526, 
106,  107 

Reinsch.C.  EB06A,  EB07A,  EB08A, 
EB09A,  MC14A,  MC15A 
residual  sign  ahanges  VC01A 
residual  variances  MA14A 
residues-pade •  approximation 
problem  PE06A 
return  code  ZA07AS,  ZR01AS 
revised  simplex  method  LA01A 
Reynolds. M.  F.B05A,  KB01A,  KB02A, 
KB03A,  KB04A,  MA12A 
Rice.J.R.  QA05A 
Roberts.F.D.K.  TP-442 
Robinson. I. G. A.  QA04A 
Romberg  extrapolation  QA05A 
roots 

cubic  PA03A 
divide  out  PD01AS 
general  function  NB01A 
number  of  PA04A 
polynomial  PA02A,  PA07AD'1’ 
polynomial  (complex  coefficients) 
PA06AD < 1  1 
quartic  PA05A 
Rouohe's  theorem  PA06AD' 1  1 , 

PA07AD 1 1 > 

rounding  errors-estimation  of 
ZE01A 


Ruffle. M.  FB03A,  GA04A,  ONOtB 
Runge-Kutta  DAOt A,  0A02A 
running  a  program  CUM-3 
Russel. D.  MA07A,  TA02A,  TA03A 


S 

Salmon. L.  R-7129 
Sande.G.  FT01A 
Sard’s  hypothesis  TP-225 
scaling  MA17A,  MA18A,  MA21A, 

MA22A,  MA23A ,  MA24A 
scaling  factors  MCioa,  MC12A, 
MC15A,  ME07A 

Scientific  Subroutine  Package-IBM 

91 

sequence  numbers  OEOiA,  91 
sequences 

acceleration  of  convergence  no 
f ac i 1 ity 
SHARE  ZA03AS 
Simmonds.H.  PA03A 
simplex  method  LA01A,  MAUB, 

MA20A,  108 

Simpson  s  rule  QA01AS.  QA02A, 
QA03A,  OBOIA,  114 
Sinden.A.T.  PE04A 
singularities  -  integrand  QA05A 
Size  3 

Smith. A. B.  DA02A,  FA03A,  QA04A 
Smith. F.J.  PE07A 
smooth  curve  obua,  VC03A 
smoothing  VB05B ,  VB06A,  VC01A, 

VC03A 

smoothing  factors  VB06A,  VC03A 
solid  angle  GA04A 
solution  of  algebraic 

equations-1 inear  LA03A,  MA01B, 
MA21A,  1 06 

band  structured  MA07A ,  MA07B, 
MA15C,  R-7119 
complex  MA23A ,  ME0*A 
error  estimates  R-6899 
general  discussion  R-6899 
Hermitian  MA24A 
Hessenberg  form  MA12A,  ME04A 
L‘ 1 1  solution  MA20A 
large  and  sparse  MA16A,  MA17A, 
MA18A 

least  squares  MA09A,  MA14A 
rainiraax  (with  simple  bounds) 

MAt  9A 1  1  1 

minimax  solution  MAt  IB 
orthogonal  transformations  MA14A 
over  determined  MA09A,  MAI  IB, 
MA14A,  MA19A1 1 1 ,  MA20A ,  100, 

106,  107 

sparse  MA16A,  MA17A,  MA18A, 
R-6844,  R-7119,  TP-411,  TP-450, 
107 

symmetric  positive  definite 


MAtOA,  MA15C,  MA16A,  MA17A, 
MA22A,  R-7119 

solution  of  equations-nonl inear 

minimax  VG01A11’,  VG02A1 1 > 
over  determined  systems  NS03A, 
VG01A' 1 1 ,  VG02A' ' » 
single  equation  NB01A 
sparse  Jacobian  NS03A,  R-7293 
systems  NS01A,  NS03A,  R-5947, 
TP-364,  VG01A1  1  >,  VG02A ( >  > 

Soper. J.  EA03A,  FG01A 
sort-key  KAO t AS,  KB 10 AS 
sorting 

ascending  order  KA01AS,  KB01A, 
KB03A,  KB10AS 

descending  order  KA01AS,  KB02A, 
KB04A ,  KB10AS 

numbers  KB01A,  KB02A,  KB03A, 
KB04A,  KB11A 
tables  KAO IAS ,  KB10AS 
text  KAO 1  AS ,  KB10AS 
with  index  array  KA01AS,  KB03A, 
KB04A,  KB10AS 
1 st  n  from  m  KB1 1 A 
source  decks-modif ication  of  OEOlA 
sparsity  pattern  TD02A 
spherical  co-ordinates  GA01A 
SPIE  ZR10AS 

Springer-Handbook  EB06A,  EB07A, 
EB08A,  EB09A,  MC14A,  MC15A 
SSP  library  91 
SSP  source  tape  91 
standard  deviations  FA03A ,  MA14A, 
NS03A,  VB01A 

statistics  SA01A,  SA02A,  SA03A, 
SV01A 

steepest  descent  NSOlA,  VA05A, 
VA06A 

step  return  code  ZA07AS,  ZR01AS 
step  time  ZA02AS 

Stern. M.D.  TP-223,  TP-224,  TP-225, 
TP-227 

stiff  systems  DC01AD 
STIMER  ZA02AS 

Stirling's  approximation  FC03A 
straight  line  fit  VC04A 
Student's  t  probability  SA02A 
Sturm  sequenoes  EC02A,  PA02A , 

PA04A 

submatrix-inversion  of  MB04A 
Svann.J.  QM01A,  TP-207 
Swann . W . H .  l 02 
symmetric  positive  definite 
definition  of  106 
synthetic  division  PB02AS ,  PD01AS 
STSLIB  87 

system  control  blocks  ZR03AS 


T 

table-searoh  for  specified  entry 


KAO IAS 

tabulate  function  values  0A03A 

task  time  ZA02AS 

Taylor  series  expansion  PD02A 

TCB  ZR03AS 
text 

compare  two  strings  IC02AS 
find  given  character  IC01AS 
order  table  of  KA01AS,  KB10AS 
three-eighths  rule  QA01AS 
TIME  macro  ZAO  1  AS,  ZA08AS ,  ZA09AS , 
ZA10AS 

time  of  day  ZA08AS 
time-difference  between  two  times 

ID03A 

timer  interrupt  relative  to  step 
time  chop  ZA02AS 

timer  interrupt-to  request  ZA02AS 
timing  programs  ZAO l AS,  ZA02AS 
TIOT  ZA17AS,  ZR03AS 
transformations 

Hermitian  to  tri-diagonal  ME01B 
Hermitian  to  tri-diagonal 
Hermitian  ME08A 
real  general  to  Hessenberg 
MC08A,  MC14A 

real  symmetric  to  tri-diagonal 
MC04B 

trapezoidal  rule  QAOIAS,  QA05A 
tri-diagonal  EA09C,  EC02A 
TSO  TP-435 
TTIMER  ZA02AS 
Turner. A. B.  TP-422 


U 

UCB  ZR03AS 

uniform  distribution  FA01AS 
union  of  intervals  KC01A 
unitary  diagonal  transformation 

EC08C,  EC09C 

unitary  transformations  MC04B, 
MC08A,  MC14A 

updates  for  catalogue  3 
Uretsky.J.L.  FF05A 


V 

variable  band  width  MA15C,  107 
variable  metrio  algorithm  TP-382, 
TP-383,  TP-459 
variance  VC01A 

variance  ratio  probability  SA03A 
variance-oovariance  matrix  MA09A, 
MA14A,  NS03A,  SV01A,  VBOt A, 
VE04A,  108 

vector  coupling  coefficients  FG01A 
vectors 

complex  inner  product  ME06AS 
inner  product  of  MC02AS ,  MC02BS , 


MC03AS ,  1 09 
manipulation  of  109 
max.  or  min.  element  MX01A, 
MX02A 

multiplication  108 
orthogonal  TP-328 
print  out  0A02A,  0A03A 
triple  inner  product  of  MC05AS 

Versions  2 

volume  serial  number  ZV01AD 


W 

weighted  uniform  sampling  QM01A, 
TP-207,  115 

weights  QC02AD ,  VC04A,  99 
Vigner  FG01A 

Wilkinson. J.H.  EB06A,  EB07A, 
EB08A,  EB09A,  MC04B,  MC08A, 
MC14A.  MC15A,  ME01B,  ME08A, 
PA06AD* 1 1 ,  PA07AD1 1 1 ,  109 
Willis. D.  KC01A,  KC02A 
write  ups  85,  86 
WTO  ZA12AS 


Y 

York.E.J.  EA02A,  EC02A,  GA03A , 
MA01B,  MC08A,  ME02A,  NB01A, 
0A01A,  VC01A 


Z 

zeros  of 

cubic  PA03A 

Gaussian  quadrature  QC02AD 
general  function  NB01A 
Pade ’  approximation  problem 
PE06A 

polynomial  PA02A,  PA07AD1 1 ‘ 
polynomial  (complex  coefficients) 
PA06AD'" 
quartic  PA05A 
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